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The original nine programs for semantic differential 
analysis have been condensed into three programs which have been 
further refined and augmented. They yield: (i) means, standard 
deviations, and standard errors for each subscale on each concept; 
(2) Evaluation, Potency, and Activity (EPA) means, standard 
deviations, and standard errors; (3) Osgood D values for all 
concepts; (4) the correlation of distance measures obtained with EPA 
scores with D values; and (5) tests of significance of D values with 
key reference concepts. The additional programming provides a 
converted standard score for each concept and tests of significance 
for D values on each concept. There are four new programs, providing 
semantic differential scale packets ready for use of respondents; a 
three-dimensional plot of how the concepts position themselves, based 
upon the EPA scores; t^tests between the means of two samples on E, 
P, and A scores; and correlations between scores on each concept with 
two samples. All but one of the programs are written in standard 
FORTRAN 77 for use on a Burroughs 6800* The remaining program, also 
written for use on a Burroughs 6800, is a FORTRAN IV program with a 
COBOL sort routine bound into it. (BW) 
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Description . Previous publications (Lawson> 1979; Laws on & 
Hetivier, 198O) described the rationale of some types^ of semantic 
differential analysis and gave listings of programs with 
examples, The original nine programs have been condensed into 
three programs which have been further refined "and augmented. 
There are also four new programs. The investigator is now able 
to perform a number of tasks. 

Input * The initial program reads data in the form of scale 
responses by concept {nine subscales for each concept) for each 
respondent , Concepts may be presented to respondents in 
randomised order and polarity^ thus avoiding position effects. 

Output , The programs yield; ( 1 ) means > standard deviations > 
and staVidard errors for each subscale on each concept; (2) 
Evaluation, Potency > and Activity (EPA) means , standard 
deviations^ and standard errors; {3) Osgood D values for all 
concepts; (4) the correlation of distance measures obtained with 
EPA scores with D values; (5) tests of significance of D values 
with key reference concepts such as, Good> Bad, Strong, Weak, 
Active^ and Passive (the user may choose any reference concepts). 

The additional programming provides; (I ) a converted 
standard score for each concept on a scale fr9m 0 to 100 along 
the selected dimensions,- and (2) tests of significance for D 



values on each concept between two samples using the Wilcoxon 

test for matched samp^t^s , or the Mann-Whitney for independent 

samples, as appropriate* 

There are four new programs* The first prints semantic 

dif f erent ial scale packets ready for use of respondents* Each 

concept to be rated has nine subscales* There are six sets of 

scales on a standard 1 4-inch-width computer sheet* The polarity 

of tha scales is alternated and the order of the concepts can be 

randomised so that no two respondents have the same order* T .e 
J 

second program does a three-dimensional plot of how the concepts 

position themselves (this plot is based upon the EPA scores and, 

on the average, correlates about »95 with results fron the more 

precise Osgood D method* This plot gives a good approximation of 

how a three-dimensional model built from either method would 

appear* The third program computes t-tests between the means of 

two samples on and A scores, as men vs* women* The fourth 

progran calculates correlations beween scores on each concept 
with two samples, as men vs* women or test-retest* 

Capacity * All but one of the programs are written in standard 

FORTRAN 77 for use on a Burroughs 6800* The remaining program, 

also written for use on a Burroughs 6800, is a FORTRAN IV program 

w*th a COBOL sort routine bound into it* With another computer, 

adjustments might be needed such as the COBOL routine being 

replaced by a FORTRAN sorb routine* The programs handle up to 

109 concepts on nine subscales* The number of cases is limited 

by the size of the arrays used in the programs* The Fredonia 

programs can handle up to 50 cases* However, where two groups 



are compared^ as men vs« women, 50 cases in each group can te 
compared » 

Ava i lability > A listing of the programs and of the directions 
for running the programs follows this abstract* For further 
information about the programs contact: Barbara L» Metivier^ 
Computing Services, State University College^ Fredonia^ New York 
14065. 
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$rtESt:'r rRE£ SET LIST 

KILE 5(iCIMD = "REH0rE- ,HYaSE = "IO") 

KILt: 6(FILE = "SEHDIfVPR'r.- ,KIND = "PRIH'rER") 

f ILE 7(F1LE = "3EM[)IF/ OUT. " , KI N D= " DI 3K " , HA XH ECS I Z E = 1 6 , BLOCKS IZ E z2 (JO , 

- STATUS ="N^:W' , AREAS1ZE = 60 ) 

F ILE 10( FILE = "SEMDIfV INPUT ,KIMD = "DISK" .FILETYt'EzV ) 

F ILE 12( fULE = "SEHDUVD01 . " , KI N D z ■' DI SK " , HA XR ECS I Z B = 1 H , BLOC KS IZ E z () 2 0 , 

" 3 TATUSz" SCRATCH" ,MY'JSE = "IO" , U PDA TEl-' ILE = "TR UE " ) 

KILE 11 (FILE z"SEHDIF/D02, ■', KIN Dz "DISK" .MAXRECSIZ Ell H, BLOCKS IZ E = (t 20, 

-S TATUS z" SCRATCH" ,HYUSEz"IO" , U PD ATEF I LE = "TR UE " ) 

F ILE 16( FILEz"SEHDIl-V[)03. ■• ,KIND = "DISK" .HAXRECSIZ Ezl H , BLOC KS IZ E z'*20 , 

■ STATUS z "SCRATCH" ,MKUSEz"IO" , U PD ATEF ILE = "TR UE " ) 

FILE 17( FILE z"SEHDIF/DOH ,KINDz"DISK" .HAXRECSIZEzI i( , BLOC KSIZEz'*2 0, 

-STATUS: "SCRATCH" , M YUS E z 10" , U PDA TEF ILE z "TR UE " ) 

I' tt 

Q. ■ 

C* SEMANTIC Dlf'^ERENTIAL SEHDIF"- SOURCE FILE 

C* OBJECT/SEHDIF - OBJECT FJle ^ 
0- 

C- ■ 

C- THIS PROGRAM CAN PERrORH THE COMPUTATTOKS FOR; - 

C» 1. MEANS AND STANDARD DEVIATIOH.S ON SUBSCALE-S * 

C* 2, MEANS AND STANDARD DEVIATIONS ON EVALUATIOH, POTENCY, 

C« AND ACTIVITY FACTORS (EPA SCORES) 

C* 3. OSGOOD D VALUES FOR ALL CONCEPTS 

C" 4. THE CORRELATION BETWEEN DISTANCE MEASURES OBTn^NED * 

C- FROM EPA SCORES AND OSGOOD'S D 

C" 5. TESTS SIGNIFICANCE OF DISTANCES OBTAINED WITH 

C OSGOOD D, 

C* - 

C- THE PROGRAM CHECKS AN INfUT DISK FILE (S EM DI F/I N PUT ) FOR 

C- ERRORS, IF OK, IT THEN FIMDS THE EPA VALUES AUD THE DISTANCES ' 

C» BETWEEN CONCEPTS USING THESE EPA'S. NEXT IT CALCULATES THE 

C* MEANS AND THE D VALUES FOR THE SEMANTIC DIFFERENTIAL USING " 

C- THESE MEANS. FINALLY IT FINDS THE SPEARMAN RANK COEl-' F 10 IE NT 

C- FOR THESE TWO DISTANCE TABLES. IT WILL HANDLE ONE CASE OR * 

C- MANY CASES WITH UP TO 109 CONCEPTS WITH 9 SUBSCALES PER 

C* CONCE PT . * 

C- 

C* THE INPUr FILE (3 EM DI e / IN PUT ) HAS THE FOLLOWING FORMAT: 
C- 

C* RECOR D COL CONTENTS 

C* 1 1-3 NUMBER OF CASES 

C" t-e SPACE *• 

C* 7-9 NUMBER OF CONCEPTS ■ 

C* 10-12 SPACE ■ 

C- 13-1** PRINT CODE * 

C- 01 - PRINTS MEANS AND MEANS DOUBLED * 

C" 02 - PRINTS MEANS, MEANS DOUBLED, SUM, 

C* SUM SQUARES, STANDARD DEVIATION, 

C* STANDARD ERROR OF THE MEANS * 

C* 15-17 SPACE 

C" 18-20 IDENT NUMBER OF 1ST CASE 



C" 




21-23 


■J r n V 


it 


C" 




2 4-2 6 


tofht humbfh of last case 




c- 




27-26 


S t*ACE 




c- 

c» 




29-'(^ 


f'lLE NAME 




c- 


z 


1-3 


CASE IDENT NUI1DEH - NUHEftIC 




C" 


3 


1-3 


CASi IDENT NUHbEH 




C" 




4-6 


CONCEPT IDEKT NUMBER - NUMERIC 




c- 




7-2 1 


CONCEPT NAME - ALPHA 




c- 




22-2 3 


SP^CE 




c- 




24-32 ' 


SUDSCALE SCORES - NUMERIC 


m 



c- 

C" REPEAT RECORD 3 AS NEEDED - 1 f'OR EACH CONCEPT * 

C ENDING WITH A f'INISH RECORD. 

C- 

C- LAST 1-3 -99 f'INISH RECORD * 

C" * 
C- * 
C" THE DISK f ILKS CREATED ARE ALL DEFINED AS SCRATCH t-'lLES * 

C- WHICH DISAPPEAR WHEN THE JOB IS f'iNISHED. * 

C" * 
C- If' THERE IS NOT THE PROPER NUMBER Of DATA RECORDS (1 PER * 

C" CONCEPT) FOR EACH CASE AS DEFIHED IH RECORD 1 OR IF ONE OF 

C- THE CASE I'JENT RECORDS IS MISSING, THE RUN WILL BE ABORTED ■* 

C- AND AN ERROR MESSAGE WILL BE PRINTED AS OUTPtJT. AT THAT " * 

C-' POINT PLEASE, CHECK THE K^PUT DATA. 

C- • 

THIS PROGRAM WAS DEVELOPED BY B . L, MET I VI E FOR fci.D.LAWSON * 
C- AT STATE UNIVERSITY COLLEGE, FREDONiA, NEW YORK, 14063 IN 

C SEPTEMBER, I98I . ■* 

C* , " 

C" THE FOLLOHNG SUBROUTINES WERE REPRINTED BY PERMISSION FROM " 

C- SYSTEM 1360 SCIENTIFIC SUBROUTINE PACKAGE ( 360 A -CM -0 3X ) 

C" VERSION III PROGRAMMER 'S MANUAL , COPYRIGHT 1 966 , 1967. 

C" 1968 BY INTERNATIOtlAL BUSINESS MACHINES CORPORATION: ■* 

t,- RANK PAGE 71 " 

C» TIE PAGE 74 

C- SRANK PAGE 73 * 

C- 

C- - - « 4 U PDATE " ■ -* * 

C- 

C- THIS PROGRAM HAS BEEN MODIFIED SO THAT THE MEANS, THE STANDARD - 

C- ERRORS OF THE MEAMS, AND THE OSGOOD DEES ARE SAVED IN A FILE 

C- WITH THE EXfENSIOH "/OUTPUT". THIS FILE IS FOR USE WITH "STAT/ 

C- SEMDIF/CORR" , " S TAT/ SEM DI F/ PLOT" , AND "STAT/SEH DI f /TTEST" . 

C- THE FORMAT OF THE RECORDS IS: 

C- RECORD 
C» 1 
C" 2 
C- 
C- 
C- 
C- 
C» 



COLS 


CONTENT 


1-3 


NUMBER OF CONCEPTS 


1-3 


CONCEPT IDENT NUMBER 


4-10 


MEAN OF E 


11-18 


MEAN OF P 


1 9-25 


MEAM OF A 


26-30 


SPACE 


31-4 1 


CONCEPT NAME - ALPHA 



ERIC 



vGG 



C- 3 - + SAME AS RECORD 2 - OHE f'Oft 

C" .~ EACH CONCEPT 

C" CN+2) 1-3 COHCEPr IDENT HUMBER 

C- i^-IO STAND. ERROR Of MEAN Of E 

C " 1 1 - ' 6 " .1 .( II .1 p 

C* 1 9-25 ■' A 

C- CN+3) - 2"H + 1 SAME AS KECORD N+2 - ONi- f" Og 

C- EACH CONCEPT 

C- (2"N) + 2 - END 1-90 OSGOOD DEE VALUES t-' OR CONCEPTS 

C" MODIFICATIONS DOME H If ilARCY METIVIER. COMPLETED AUGUST 

C- 1983 AT STATE UNIVERSITY COLLEGE, AT fRRDONlA. 

C" 

C« 



C" 

c- 

C" * 

DIMENSIOH IC0NC(9) 

CHARACTER-3 C0NCIL>, CONCNMM^, TITLE-18, TITLE1"18, FIDOUT-26 
^CHARAGTER-e.WHEN 

C" 

C- PRINT -DATK ON^fRINTOUT 



CALL DATIT(WHi-N) 
WRITEC6, 950 )WHEN 

C" 

"•C , EHTER NAt-IE Of" INPUT r" ILE f'ROM REMOTE 

C 

WRITE (5, ■) "ENTER NAME Of" INPUT f ILE . NO MORE THAN 18 CHARACTERS, 
-I'LEASE" 
READ(5 , 905 I'TITLE 1 
It (TITLE 1 (1 8: ) .NE. " " )THEN 
TlfLEUltJ: )="." 
GO TO 70 
ELSE 

DO ^0 1= 1 y, 1 , -1 
50 If(TITLE 1 (X : I ) .NE. " ")G0 TO 60 

60 ^1=1+1 

TITLE 1 (I: I )= "." 
END IP 

C" 

C- OPEN INPOT flLR 

C 

70 OPEN (10, fILE=i ITLE 1 ) 

C« 

c- ;keate name op output pile pok means doubled 
c- 

1 = 1-1 

FIDOUTsTITLE 1 C 1 : I) / / " / OUT PO T . " 

WRITE(5,'*)" the following is THE NAME OF THE PILE TO BE USED FOR G 



r 



■RAPHING: , " .FIDOUT 

C* 

C* OPEN OUTPUT KILE FOR MEANS DOUBLED 
C* 

.0PENC7, FILEzPIDOUT)' 

C» 

c- 

C* READ RUN DE SCR I PT lOH C AR D - // OF' CASES, » OF COHCEPTS, 

C- PRINT CODE/ CASE IDENT NUMBERS (1ST AND LAST) 

C* 

c» 

READ(10, 90 3)L,N,IPSH,LTAG1,LTAG2,TITLB^ 

INERRiO 

H=M-6 
DO 205 J1=0,L 

100 READdO, 90 1 , EKD=800 )NC ASE , CONC ID , CONC NM , IC ONC 
C» ' ■ . 

C" . . ' 

C* CHECK FOR FINISH CARD 

C* 

C» 

120 IF(NCASE.EQ,-99)GO TO 600 ■ 

C- 
C» 

C- IF NOT CASE IDENT CARD, GO TO ERROR ROUTINE 

C- 

c» 

IF(CONCID. EQ. ' ' )G0 TO mo 

c* 
c» 

C* ERROR ON CASE IDENT CARD - CONCEPT NUMBER NOT BLANK 

C» 

C* WRITE ERROR MESSAGE 

C* ADD TO ERROR COUNT 

C 
C- 

WRITE (6, 90 4 )NC ASE , IDENT , CONC. - 
INERRslNERRfl 

C* 

c» 

C CHECK TO SEE IF START Of' MEW CASE 

C* 

c* 

~ IF (NCASE. EQ. IDENT )G0 TO 100 

C* 

C* READ DATA CARDS 

C* 

C* IF IDENT NE NCASE, ERROR IN CASE IDENT NUMBER 

C* 

C* CASE IDENT CARD OR FINISH CARD OUT OF ORDER. 

C* WRITE ERROR MESSAGE AND CHECK FOR CASE IDENT CARD.^-' 

C* 

C* ' . . - 



mC ' ./;r; 



UO ■ DO 205 J = 1 , N 

READ( 1 0, 90 1 , END=7 00 )IDENT , CONC I D , COHC NM , IC ONC 
It'C IDENT, HE, NCASE )THgN 

WRITE (6, 901 )NC AS E, I DENT, CONC ID 
INEKR=INERR+1 

Il-'C CONCID. EQ. • • )THEN " ^ ' ' 

NCASEzIDEHT 

GO TO 120 
EHD If 
END IF 

C- 

205 ' CONTINUE 

C- 

C" KILE CONTAINS TOO MANY RECORDS l-'OH NUMBER OF CASES. 

C- 

«RITE(6,-)"T00 MANY RECORDS FOR NUMBER OF CASES. RUN ABORTED." 
300 W RITE (6, 901 )NC AS E, IDE NT, CONC ID 
STOP 

C- 

c* 

C* END OF RUN 

C- - " IF NO ERRORS, CLOaE DISK FILE AND CALC SDEPA 

C* IF ERRORS EXIST, ABORT *R UN 

^" < 

600 IFCINERH. NE.O)THEN V 

WRITE (6, 901 )HCASl£, IDENT', CONCID 
STOP 
END IF 

ENDFILE '10 ' ■ 
REWIND 10 

C-* CALL PROGRAM TO FIND E,P,A VALUES 
C". ■ 

CALL SDEPA 
C* . " 

C* CALL PROGRAM TO FIND DISTANCES BETWEEN CONCEPTS 

C ' ' ^ 

CALL SD^t>TD . " _ ( 

C- 

C* CALL PROGRAM TO FIND MEANS 
C- 

CALL SDHSH 

C ■ 

C- CALL PROGRAM TO FIND D- VALUES FOR SEMANTIC DIFFERENTIAL 
C- ' i . ■ - 

CALL SDGPD 

C" CALL PROG'RAM TO FIND SPEARMAN HANK COEFFICIENT 
CALL LRANK 

C 

C" END OF REPORTS - WRITE INSTRUCTIONS 
WRITE C^^^6> 



ERIC 



^ 8 



10 



. c- 

c- ^ ■ 

c- 

STOP - 

C- ERROR - NOT'ENOUGH RfiCORDS fOR NUMBER Of CASES. 

C- 

700 WRITE(6/-)"N0T ENOUGH RECORDS KOR NUMBER OF CASES. ABORT 'rUN." 
GO TO 300 

C- 

C< error -■ NO ENp CARD 

C- 

800 It'dNERR, EQ.O) THEN ^ 
N;=-99 

WRITE(6,*)"N0 END CARD, FILE CORRECTED," 
WHITE(10,901 )H 
GO TO 600 
END If- 

WRITE (6 , ■ ) "NO END CARD. PREVIOUS ERRORS, RUN ABORTED." 

GO TO 300 
901 F OHMATd 3, A3, Al5, 2X , 91 1 ) 
903 FORHAT(2(I3, 3X ) ,I2,2(3X, 13) ,A18 ) 

90t( FORMATCiX, 'ERROR IN INPUT D£CK. CASE=»,I3,' IDENT = .', I3, 
1' CONCEPT: ' , A3, ' RUN ABORTED - ERROR CHECKING CONTINUES') 

905 F0RHAT(A18) 

906 F.0RMAT(///1X,"IF THE CORRELATION IS ,90 OR BETTER, YOU CAN BEGIN 
ICONSTRUCTION Of YOUR MODE L . " // 1 X , " IF NOT PLEASE CHECK YOUR DATA CA 
2f(EfULLY "■) ' 

950 fOBHAT(lX,A8). , 
END 

C- i ■ ' 

SUBROUTINE SDEPA 



C-. - ' ijUBROUTINE SD£ PA * 

C- ' . , •* 

C" . - * 

C- THIS SUBROUTINE USES THE OSGOOD SEMANTIC DIFFERENTIAL THEORY, * 

0- IT CO'MPIJTES EPA SCORES (EVALUATION, POTENCY, ACTIVITY) * 

C- BASED UPON SCORES OF SELECTED SUBSCALES, SCORES ARE "* 

' C" AVERAGED, * 

C" * 

C" THE PRO'GRAH^CAN ALSO COMPUTE THE SUM, SUMS Of SQUARES, * 

C* THE STANDARD DE VI ATIO NS , STAN DAR D ERROR OF THE MEAN * 

C IF THESE ARE NEEDED, SEE BELOW FIRST RECORD Of" INPUT * 

C- FIL£, 

C" ' • 

C" VARIABLES N1 THRU N9 CONTAIN SUBSCALE NUMBERS OF * 

C* VARIABLES COMPOSING AVERAGE E-VALUE, P-VALUE, A-VALUE. « 

C» NUIST E SUBSCALE NUMBER * 

C* N2=2ND E SUBSCALE NUMBER • 

C* " N3s3RD E SUBSCALE NUMBER 

€»- NttzlST P SUBSCALE NUMBER »- 

C- N5z2ND P SUBSCALE NUMBER * 



.GG 11 



r 



c* 
c* 

c» 
c 
c* 
c* 
c* 
c- 

c* 
c« 

'C* 

c* 

C" 

c« 

c» 
c- 
c- 

^' 

c* 

c 
c« 
c« 

c« 
c* 
c* 
c» 
c» 
c« 
c« 
c* 
c» 
c» 



Nj6 = 3RD P SUBSCALE NUMBER 

N7=lSf A SUBSCALE NUMBER 

H8=2HD A SUBSCALE NUMBER 

..N9 = 3RD A SUBSCALE NUMBER 

THE INPUT DATA IS A DISK t-'ILE ( SEM DI F/ IN PU T ) CONTAINING 
THE KOLLOWTnG INFORMATION : 



RECOR D 
1 



2 
3 



LAST 



COL \ CONTENTS 
1-3 \ NUMBER OF CASES 
SPACE 

7-9 NUMBER OF- CONCEPTS 

10-12 SPACE 
U-lt PRINT CODE 

OV - fRINTS MEANS. AND MEANS DOUBLED ' 
02 - PRINTS, MEANS, .MEANS DOU BLE D, SOM , 
sun SQUARES, STANDARD DEVIATION, 
STANDARD ERROR OF fflE MEANS 

15-1Y SPACE 

18-20 IDENT NUMBER OF 1ST CASE 

21- 23 SPACE 

2lt-26 IDENT NUMBER OF LAST CASE. - 

27-28 SPACE, 

29-lt2 FILE NAME ' ■ 

1-3 CASE IDENT NUMBER - NUMERIC 

1-3 CASE IDENT NUMBER 

t-6 CONCEPT IDENT NUMBER - NUMERIC 

7-21 CONCEPT NAME - ALPHA 

22- 23 SPACE 

2t-32 SUBSCALE SCORES - NUMERIC 
REPEAT RECORD 3 AS [jEEDED - 1 FOR EACH CONCEPT 

1-3 -99 



•* 
ft 

M 
* 
* 
* 
* 

* 
* 



INTEGER CASENO 

REAL MEANS2(109,3). SCORE(109,9) 
CHARACTER CONC NM ( 1 09 ) * 1 5 , TIT 1 8 
REAL MEANS (1 09, 3) , NSUM( 109, 3) ,i*SMSQ(l 09 ,3) 
DIMENSION STDEV C 1 09, 3) . SEpMCl09,3) 



N 1 si 

N2s6 

W3=7 
Nit=2 

N5=5 



\ 



ERIC 



10 . 



12 



H6=8 
N7 = 3 

N9 = 9 

READd 0,901 )L,N,I?SM,LTAG1,LTAG2,TITLE 
WRITE (6, 901 )L , N , I?SW . LT AG 1 . LT A G2 . TITLE 

C- 

C* INITIALIZE VARIABLES 

5 CONTINUE 

RNOPrO 

DO 11 J s 1 , 3 

DO 11 IC=1,N 

NSUMC IC , J )=0 
' STDEVCIC; J)=0 
SEOHCIC, J)=0 
MEANSCIC, J)=0 

11 NSHSQdC, J)=0 
DO 12 ICrl.N 

DO 12 J = 1 , 9 

12 ' SCOREdC, J) = 0 
NC 1 =0 

C* 

c* 
c- 
c* 

C* READ IN ONE CASE IDENT RECORD PLUS N CONCEPT RECORDS 

C- 

C* - i 
C* 

20 HEAD(10,902,END::5I>0) LTAG 
Il''( NC1.EQ.0)NC1=LTAa ' 
IfCLTAG.LT. 0) GO TO 320 
ITAG =LTAG * 
DO 200 K = 1 , N 

READ( 1 0, 90 3)CASENO, IC, CONCNHC IC) , CSC0RE(IC,J),Js1,9) 
IF(L. EQ. 1 )WRITE(6,90 4 )CASEN0,C0NCN'M( IC ) , IC , C SCOR E ( I C , J ) , J = 1 , 9 ) 
C- REVERSE EVEN SCALES 
DO 100 J=l,9,2 
100 SCORECIC, J)=8 - SCOREdC, J) 

SCOREdC, DrSCORECIC, hi ) + SCORE (I C , N2 ) + SCORE (IC , N 3 ) 
SCOREdC, l) = SCOREdC, 1)/3. 

SCOREdC, 2 ) = SCOREdC, N4)+SCORE(IC,N5)+SCORE(IC, N6) 
SCORE CIC, 2) = SC0REdC , 2)/3. 

SCORE (IC, 3) = SC0REdC , N7 ) +SCOR E (IC , N8 ) + SCOR E dC , N 9 ) 
SCORE.dC, 3) = SC0REdC, 3)/3. 
200 CONTINUE ' 



C-< COUNT NUMBER Of CASES 

C* 

C« 

300 RN0P»RN0P+1 



O 1 1 



c- 
c* 



c- 
c* 

c 

c* 
c* 
c 

c 
c- 
c- 



DO 310 J = 1 , 3 
. DO 310 IC = 1,H 

THIS COMPUTES THE SUMS 

HSUM( IC, J)=HSUM(IC, J)+SCORE(IC, J) 

THIS COMPUTES THE SUMS OF THE SQUARES 

310 HSMSQdC, J)=(SCOREaC, J)'"'2) + NSMSQ(IC, J) 

GO TO 20 
320 DO 330 Jsl , 3 

DO 330 IC = 1 ,N 

THIS COMPUTES THE HEAM 

MEANS (IC,J)= NSUMdC, J)/flNOP 

THIS COMPUTES THE STANDARD DEVIATION 

STDEVdC, J) = ((MSMSQdC, J)/RNOP)-(MEANS (IC,.J)*«2 ))*'^ .5 

THIS COMPUTES THE STANDARD ERROR OF THE MEANS 



330 



IF( RNOP. EQ. 1 )G0 TO 330 

SEOHCIC, J) = STDEV(IC, J>/( ( RNOP-1 )** ,5) 

CONTINUE 



C- 
C- 
C* 

c- 

PRINT MEANS AND MEANS DOUBLED AND CREATE OUTPUT FILE 
(SEMDIF/D02) WITH THE FOLLOWING FORMAT: 
RECORD COLS CONTENTS 

NUMBER OF CONCEPTS - NUMERIC 
SPACE 

CONCEPT IDENT NUMBER 
MEAN DOUBLED OF E 
MEAN DOUBLED OF P 
MEAN DOUBLED OF A 
SPACE 

CONCEPT NAME - ALPHA 
SAME AS RECORD 2 - ONE FOR EACH 
CONCEPT 



1 

2 



1- 3 
1 

2- t| 
5-11 

12-1 8 
19-25 
26-30 
31-11 



•J 

C- 
C- 
Ct* 
C" 

c- 
c* 
c 
c 
c* 
c^ 
c- 
c^ 
c* 

c- 
c* 

WRITE(6,905) 
NC2sNC 1 +L-1 

WRITE(12,906)N,NC1,NC2 
WRITE(7,902)N 

WRITE(6, 907) (IC,( MEANSdC, J) , J = 1 , 3 ) , CONC NM ( I C ) , ICs 1 ,N) 



3 - (N+1 ) 



ERIC 



12 



WRITE(7,900)(IC,(HEANS(IC,J),J=1,3),CONCNH(IC),IC^1,N) 
DO 400 J =1 , N 
DO too H =1 , 3 



too MEANS2(J ,H)=HEANS(J ,"H) *2.0 

WRITEd 2, 900) (IC, (HEANS2(IC, J) , Jsl , 3) ,CONCNM( IC) ,IC = 1 ,N ) 
WRrrE(6, 908) 

WRITE (6, 907 ) (IC, ( MEANS 2 (IC , J ) , J= 1 , 3 ) , CONCNM ( I C) , IC = 1 , N ) 

GO TO (600,500) IPSW 
C" SUMS 
'jO" WRITE (6, 909 ) 

WRITE (6, 90 7) (IC, (NSUHdC, J) , J = l ,03) .CONCNHdC ) ,IC = 1 , N) 
C* SUMS OF THE SQUARES 

WRrrE(6, 910) 

WRITE (6, 907 ) (IC, (NSHSQdC , J ) , J = l ,03) ,CONCNM(IC ) , IC = 1 , N) 
C" STANDARD DEVIATIONS 

WRITE (6, 91 1 ) 

WRITE(6,90 7)(IC,(STDEV(IC,J),J=1,03) ,CONCNM(IC ) , IC=1 , W) 
WRrrE(6,9l2) 

WRITE (6, 90 7 ) (IC, (SEOMdC, J) , J = 1 ,03) , COWCNM ( I C ) , IC = 1 ,N) 

WRITE (7, 92 0) (IC, (SEOH( IC, J) , J=l ,03 ) , ICsl , N ) 
5*^0 REWIND 10 

REWIND 12 

RETURN 
600 GO TO 5 

900 FORMATdX, I3, 3t7. 3,5X, A15) 

901 FORHATd 3, 3X, I3,3X, I2,2(3X, I3),A18) 

902 fORMAT(l3) 

90 3 FORMATd3,l3, A15,2X,9F1.0) 

90 It FORHATdX, I3,2X, A15, 2X, I3, 3X,9F6.0) 

905 F0RMAT(/////,1X,'TH£ MEANS A RE ' /7X ' E ' 6X ' P ' 6X ' A ' / ) 

906 FORMAT(3(I3,3X)) 

907 FORHATd X, I3, '-' , 3F8. 3, 5X , A 1 5 ) 

908 FORHAT(/// , IX 'THE MEANS DOUBLED ARE ' /7X ' E ' 6X ' P ' 6X • A ' /) 

909 FORMAT(/////, IX, 'THE SUMS ARE',/) 

910 FORHAT(///// , IX , 'THE SUMS OF THE SQUARES ARE',/) 

911 FORMAT(///// , IX, ' THE STANDARD DEVIATIONS ARE',/) 

912 FORMAT(///// , IX, ' THE STANDARD ERRORS OF THE MEAWS ARE',/) 
915 FORMATdX, 3F8. 3,5X,A15) 

920 FORMATdX, I3, 3F7. 3) 
END 



* * * * * * ttm 1 * tt 1 * tt 1 * mm * * 1^ 1 * H * m ¥i m * M <i ft k * * * * a * *ii *» It * * * » 4 M ft 11 * * m * K it it * 



C" 

c 
c- 

C" 
C" 



CALCULATE MEANSS - MEANS DOUBLED 



SUBROUTINE SD2PTD 



C» 
C* 
C" 
C« 
C* 
C" 



THE SUBROUTINE COMPUTES THE DISTANCE BETWEEW TWO COHCEPTS 
(VARIABLES) AS DEVELOPED IN SUBROUTlNi. SDEPA. SDE PA YIELDS 



SUBROUTINE SD2PTD 



13 




THREE VALUES ON THE EVALUATIVE, POTENCY AND ACTIVITY 
FACTORS Of THE SEMANTIC DIb' t' ER ENT lA L . 



THE SUBROUTINE WILL HANDLE UP TO 109 CONCEPTS, I.E. CONCEPT - 
tn TO CONCEPT H2 WHERE N2 = N1 + (n-1) AND CONCEPT K IS *• 
FOUND IN REC0RD(K+1) IN THE INPUT KILE, SEMDIF/DOl. THE * 
INPUT KILE IS A DISK FILE CREATED BY THE SUBROUTINE SDEPA * 
WITH THE FOLLOWING fORHAT: * 

it 

RECORD COL CONTENTS ' * 

1 1-3 NUMBER OF CONCEPTS * 



COL 

1- 3 
1 

2- t 

5-n 

12-1 8 
19-25 
26-30 
31 -t1 
H2~80 



SPACE 

CONCEPT IDENT NUMBER 

VALUE .Of E 

VALUE OF P 

VALUE Of A 

SPACE 

CONCEPT - ALPHA 
SPACE 



3-(N + 1 ) 



SAME AS RECORD 2 - ONE RECORD FOR EACH CONCEPT 



OUTPUT FROM THIS PROGRAM IS A DISK FILE, SEMDIF/D02, fOR USE"* 
IN LRANK, THE CORRELATION SUBROUTINE. THE VALUES RE- • 
s-ORDED HILL BE THE DISTANCES BETWEEN CONCEPT 1 AND 2 TO H " 
IN THE 1ST (N-1) RECORDS, CONCEPT 2 AND 3 TO N IN THE NEXT * 
(N-2) RECORDS, CONCEPT 3 AND t TO N IN THE NEXT (N-3) * 
•RECORDS, ETC-. 



* 
* 

■ ■■tlitHiiif*i(iiiiiiiiiiiiitii<ii(*iiiiiiiiii«itiiit^ii 



CHARACTER CONC NH ( 1 09 ) * 1 5 

DIMENSION E(109);P(109),A(109),D(109,108),G(109) 

READ(12, 900)N,N1,N2 
WRITE(1t, 900 )N,N1,N2 
H = rt-1 

DO 5 I = 1 , N 

READ(12,930)IC,E(I) ,?(I) ,A(I) ,CONCNM(I) 
CONTINUE 

WRITE HEADING 
WRITE(6'» 920) 

DO 15 Isl ,H * ' 

DO 15 K s 1 , N 

D(K,I) s 0,,0 
DO 20 K=1 ,H • 
L = K + 1 

DO 20 J=L,N 
I = J-1 



It 



20 D(K, I)=SQRT(((E(J )-E (K ))*''2 ) + ((P(J )-P(K ) ) '"2 )+(( A(J )-A(K ) )*"'2)) 
J =0 

DO 1 10 K = 1 , H 

DO 100 I=K,H 
J =J+1 

0(J) = D(K , I) 

C- 
C" 

C" WRITE DISTANCE MATRIX TO DISK FILE (SEM DI t-VD 02 ) 

C- 

C PRINT OUT DISTANCE MATRIX 

C 

c 

100 Whxi'Ed it,9lO)G(J ) 

L2=15 

DO 105 L = l , J. 15 * 

If(L2.GT.J)L2=J 

HRITE(6, 950)K, ( G ( J 1 ) , J 1 =L , L2 ) 
1 05 L 2 = L 2 + 1 5 . 

WfilTE (6 , 960 ) 
110 J =0 

900 F0RMAT(3(I3,3X)) 

920 fORMAT(///" THE DISTANCES BETWEEN THE CONCEPTS ARE SHOWN BELOH"/ 
"" l-'IRST GROUP OF ROMS SHOWS CONCEPT 01 AGAINST 02, 03, 01 ETC."/ 
"" SECOND GROUP Of ROWS SHOWS CONCEPT 02 AGAINST 03, Ol , 05,' ETC."/ 
"" THIRD GROUP SHOWS CONCEPT 03 AGAINST THE OTHERS. FOURTH GROUP- 
"CONCEPT Oil ETC. — "// 

-16X,"2 3 t 5 6 7 8 9 10 11 12 

■* 13 H 15 16 "//) 
930 FORMATdX, 13, 3F7, 3,5X, A15) 
910 l''ORHAT(f6.2) 

950 FORMATdX, "COHC ",I3,3X, 15F6.2) 
960 FORHATdX,//) 

REWIND 11 

RETURN 

hlND 

C" 

SUBROUTINE SDHSH 



Qaiiriiriiriiiiriiiiraiiiiiiiiiiriiriiriiiiaiiriiraaii«iia«ii4K«iiiiii aiiiiiiiiaiia liitaiiaii iiii*iijiWa«a)(i>aitieii<itji 

C" *' 

C* SUBROUTINE SDMSH » 

C*. . * 

C" * 

C* * 

C- THIS SUBROUTINE COMPUTES THE MEAN, MEAN DOUBLED, THE SUM, » 

C" THb; SUM OF THE *SQU A RtS , THE STANDARD DEVIATIONS, STANDARD * 

C* ERROR OF THE MEANS FOR SUB-SCALES 1-9 ON THE OSGOOD SEHAN- * 

C TIC DIFFERENTIAL. IT HILL PflOCESS UP TO AND INCLUDING * 

C" 109 CONCEPTS AND HILL PRINT OUT RESULTS ACCORDING TO PRINT ^ 

C* CODE DESCRIBED BELOW. 

C- - - 

C THE INPUT DATA IS A DISK FILE (SEMDIF/D01) CONTAINING * 
THE (-"OLLOHING INFORMATION: * 

O 15 



RECORD' 
1 



2 
3 



COL 


COKTENTS 


It 


1-3 


NUMBER Of CASES 


it 


11-6 


SPACE 




7-9 


NUMBER Of CONCEPTS 


« 


10-12 


SPACE 


m 


1 3-1 1 


PRINT CODE- 


at 




01 - PRINTS MEANS 


)l 




02 - PRINTS MEANS, SUM, SUM • SQU AR , 


ii 




STANDARD DEVIATION, STANDARD 


k 




cnnUn ur inc. LlcAric> 


it 


15-1 7 


SPACE 


■m 


18-20 


iDENT NUMBER Ot 1ST CASE 


4 


21 -2 3 


SPACE 


4 


211-26 


IDENT NUMBER 0^^ LAST CASE 


^ 


27-2 8 


SPACE 




29-112 


FILE NAME 




1-3 


CASE IDENT NUMBER - NUMERIC 


4 


1-3 


CASE IDENT NUMBER 


k 


11-6 


CONCEPT IDENT NUMBER - NUMERIC 




7-2 1 


CONCEPT NAME - ALPHA 


■ 


22-2 3 


SPACE 




211-32 


SUBSCALE SCORES - NUMERIC * 





REPEAT RECORD 3 AS NEEDED - 1 fOR EACH CONCEPT * 

REPEAT THIS RECORD GROUP,- ONE FOR EA,CH CASE, ENDING * 

WITH A FINISH RECORD FOLLOWING THE LAST CONCEPT OF * 

THE LAST CASE. (GR OU P = R EC OR DS 2 AND 3) * 

k 

LAST 1-3 -99 



REAL 3C0RE(109,9) 

REAL MEANS(109,9) , NS'UM( 1 09 , 9 ) , NSMSQ ( 1 09 , 9 ) , MEANS2 ( 1 09 , 9 ) 
DIMENSION STDEV(109,9) ,SE0M( 109, 9) 
CHARACTER C ONC NH ( 1 09 ) * 1 5 

READd 0, 900 )L, N , IPSW 
IF(L. EQ, 1 ) THEN 

ASSIGN 500 TO NUM 
ELSE 

ASSIGN 600 TO NUM 
END If 



INITIALIZE VARIABLES 



RNOPrO 



16 



t 



DO- 100 J = l,9 

DO 100 IC = 1 , N 
HSUM( IC , J )sO 
SCOREdC, J) = 0 
, SJDEVdC, J) = 0 - ■ . ' 

S.EOHCiC, J) = 0 ■ ■ 

HEAMS (IC, J) = 0 
MEANS2CIC, J)sO 
100 NSHSQdC, J) = 0 
HC 1 =0 
- C? , 
C- 

C" READ INPUT DATA 

C* " . 

200 READ(10,910,END=800) LTAG 
If'(MC1.EQ.0)HCl=LTAG 
It'(LTAG,LT.O) GO TO 320 * 
DO 21 0 K = 1 , N 

READ(10,930)IC, CO«CNH(IC ), (SC0RE(IC,J).J=1.9) 

DO 205 J =-1,9, 2 ' 
.205 SCOREdC, J) = 8-SC0RE(IC, J) 
'210 CONTINUE \ ' ' 
C" 

C-' COUfJT THE NUH,BER OF CASES 

C* 

Q* 

300 RNOPsRNOP + 1 
DO 310 J = l,9 

DO 310 IC = 1 ,N 
C- THIS COMPUTES THE SUMS 

NSUHCIC, J)sNSUH(IC, J)+SCOREdC, J) 
C" THIS COMPUTES THE SUMS Of THE SQUARES* ^. 

310 NSHSQdC, J)=(SQ0REdC,J)**'2)+NSHSQdC,'j) * . 

GO TO 200 . 
320 DO HOO Js1,9 ■ , ' ' 

DO '\00 IC = I , N 
C". THIS COMPUTES THE HEf^N 

KEANS ClC,J)i flSi. (IC, J)/RNOP 
C* THIS COMPUTES THE STANDARD DEVIATION 

STDEVdC, J) = ((NSHSQdC, J)/RNOP)-(HEANS(IC, J)«''2)) .5 
C" THIS COMPUTES THE STANDARD ERROR Of THE MFANS 
Ir(RNOP. EQ. 1 )G0 TO HOO 

SEOHdC, J ) = STDE VdC, J)/( (RNOP-1 ) .5 ) 
iiOO CONTINUE 
WRITE(6, 935) 
GO TO NUH,(500,600 ) 
500 WRITE(6,9i|0) 

C 

Qnnnn k -m -m liniinn ^ktt n ^ n n n n An n A n < ftiiniiiiiiiiii iknitlkAk^^ )i A ilk Ht n n mn ilk ^ ilk lk An A 

C" , ' " 

C- WRITE t GROUPS OF OUTPUT AND CREATE DISK FILE, * 

C* SEMDIF/D03 WITH THE FOLLOWING FORMAT: "* 

C" 

<^ . ' 17 . ' 

ERIC . , / r ^ „ 



C' RECORD COL CONTENTS * 

C 1 1-3 NUMBER Of CONCEPTS -* 

C 2 1 SPACE * 

C 2-4 NUMBER Of CONCEPTS * 

C^ 5-11 VALUE OK 1ST MEAN „ XXX. XXX * 

C" 12-18 VALUEx Of 2ND MEAN XXX. XXX * 

C- 19-67 VALUER OK 3RD THRU 9TH MEANS * 

C 68-69. SPACE \ - 

C*» 70-80 CONCEPT - ALPHA " 

C- 3 SAME FORMAT AS RECORD 2 BUT h'OR 2ND CONCEPT * 

C" 4-(tJ + l) INFORMATION FOR REMAINING CONCEPTS 

C " 

Qua aiiiiiiasaiiakiisaitiisasa a ■■!(■■■ a^aiia aiiaaitaii»iiiiWtoa«»aksiiiitiiiiiiiiiiiiiiiiiii«iiW«ii 

C^ 

GO TO 620 

600 WRITE (6, 91(5) 

C ' MEANS 



620 WRITE (6, 9^0)(IC .(MEANSdC, J) , J = l ,9) , COKC NM ( IC ) , IC = 1 , N ) 
NC2=NC UL-1 

WRITE (1 6, 955 )H . NC 1 , NC2 

WRITE (1 6., 960 ) (IC , ( MEANS (IC, J) , J=1 , 9 ) ,CONCNM( IC ) , IC = 1 , N ) 
Ii'-(IPSW.NE.2) GO TO 700 
C ■ 

C'THESE STATEMENTS ARE EXECUTED WITH PRINT CODE 2 
C- '^SUMS 
- WRITE (6, 965) 
• WRITE (6, 970 ) ( IC , ( NS UM ( IC , J ) , J = 1 , 9 ) , IC = 1 , N ) 
C* SUMS OF THE SQUARES 

WRITE(6,975) 
' WRITE(6, 980 ) (IC, (NSMSQdC, J) , J = l ,9) ,IC = 1 ,N) 
C*" STANDARD DEVIATIONS 

WRITE(6, 985) • ' 

WRITE (6, 990 ) (IC, (STDEV (IC, J) , J = 1 ,9) , IC = 1 , N ) 
WRITE(6, 995) 
' WRITE (6, 990 ) (IC , (SEOM (IC,J),J = 1,9),IC = 1,N) 
700 REWIND 16 , , 

RETURN 
800 STOP 

900 FORMATd 3, 3X, 13, 3X, I2J 
910 F0RHAT(I3) 

930 F0RHAT(3X,I3, ,A15,2X,9F1.0) 

935 FORMATdHl,/" COMPUTER PRINTOUT FOR THE SEMANTIC DIFFERENTIAL"//) 
9tO FORMATd He,"THE SCORES OF THE SUBSCALES ARE"/) 
915 FORMAT (VH ,"THE MEANS OF THE SUBSCALES ARE "//) 
950 fORMATd X, I3,"-".9F7. 3, 5X, A15) ' - 

955 F0RHAT(3(I3,3X)) 
960 FORHATdX, I3,9F7.3,2X,A15) 
9'65 F0RMAT(/////,1X,"TH£ SUMS ARE",/) 
970 FORMAT(1X,I3,"-",9f6.0) 

975 FORMAT(///// ,1X,"THE SUMS OF THE SQUARES ARE",/) 
980. FORMATd X, 13,"-", 9F 8. 0) 

985 F0RMAT(/////,1X,"THE STANDARD DEVIATIONS ARE",/) 
990 FORMATdX, I3,"-",9FV. 3) 

995 F0RMAT(/////,1X',"THE STANDARD ERRORS OF THE MEANS ARE",/) 



END 



C 

c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c» 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 

C" 

c 

c* 
c* 
c* 
c* 
c* 
c* 
c-* 

C" 

C/ 

c* 
c* 

C" 

c* 
c* 
c* 
c* 

c 
c* 
c 
c* 
c* 
c 



SUBROUTINE SDGPD 

k 



SUBROUTIHE SDGPD 

THIS SUBROUTIHfi COflPUTfiS THE D VALUES t'OR THE SEMANTIC 
DIf PERENTIAL USING THE GENERALIZED DISTANCE FORMULA: 

DrSQUARE ROOT OF SUM O.*-' D SQUARED 

(SEE OSGOOD, SUCI & TANHEIIBAUH P. 91) 

DISTANCES ARE COMPUTED BETWEEN EACH COHCEPT AND EVERY OTHER 
CONCEPT. THIS PROGRAM WILL HANDLE UP TO 109 CONCEPTS, I.E. 
CONCEPT Nl TO COHCEPT N2 WHERE N2=f)l+f)-l AHD CONCEPT K IS 
FOUND IN RECORD (rC+1) IN THE INPUT FILE. 

DATA INPUT IS THE DISK FILE (SEM DIF/ D 03 ) , CREATED BY SUBROUTINE 
SDHSH, WHICH IS THE MEANS OF THE , SUBSC ALES . IT IS STORED IN 
THE FOLLOWING FORMAT: v' • 

RECORD 
1 

2 



COL 


CONTENTS 










1 


-3 


NUMBER OF CONCEPTS 




1 




BLANK 










2 


-4 


CONCEPT 


I DENT 


NUMBER - INTE 


5 


-1 1 


VALUE OF 


MEAN 


OF 


SUBSCALE 


1 


12 


-1 8 


VALUE OF 


MEAN 


OF 


SUBSCALE 


2 


19 


-25 


VALUE OF 


MEAN 


OF 


SUBSCALE 


3 


26 


-32 


VALUE OF 


MEAN 


OF 


SUBSCALE 


4 


33 


-39 


VALUE OF 


MEAN 


OF 


SUBSCALE 


5 


40 


-4 6 


VALUE OF 


MEAN 


OF 


SUBSCALE 


6 


47 


-53 


VALUE. OF 


MEAN 


OF 


SUBSCALE 


7 


54 


-60 


. VALUE OF 


MEAN 


OF 


SUBSCALE 


8 


61 


-67 


VALUE OF 


M EAN 


OF 


SUBSCALE 


9 


68 


-6 9 


SPACE 










70 


-80 


CONCEPT 


NAME • 


- ALPfIA 





REPEAT RECORD 2 AS NEEDED - ONE FOR EACH CONCEPT 

RECORD 2 HAS THE MEANS OF THE SUBSCALES FOR THE 1ST 
COHCEPT, RECORD 3 FOR THE 2ND COHCEPT, RECORD 4 FOR THE 
3RD COHCEPT AHD SO OH UHTIL ALL COHCEPTS (HI TO H2 ) HAVE 
BEEH IHCLUDED, 

OUTPUT FROM THIS SUDROUTINfi IS A DISK FILE, SEMDIF/D04, FOR 
USE IN LRANK, THE CiORRELATION SUBROUTINE, THE VALUES RECORDED 
WILL BE THE DISTANCES BETWEEN CONCEPT 1 AND (2 TO N) IN THE 
1ST (N-1) RECORDS, CONCEPT 2 AND (3 TO N) IN THE NEXT (N-2) 
RECORDS, CONCEPT 3 yAND (i* TO N) IN THE NEXT (N-3) RECORDS, ETC, 



n 

« 

ii 
ii 
H 
^ 
it 
vfc 
vfc 
M 

4 

it 

4 

it 
ii 

4 
4 
4 

f* 

k 
tf 

4 

it 
H 
H 

it 



ERLC 



/ 



21 



1 



c- 

QnA-A»»n»»»»An4»»nit»-mnnn i4i4iiaaii 

c 

c* » 

c 

REAL HEAN(109) 

DIMENSION BA(109,9),SUM (109,108)' 
CHARACTER COHC HH ( 1 09 ) ' 1 5 
C* M=fJUHBER OF CONCEPTS RATED 
READ(16, 9E)0 )H. N1, N2 
WRIT£(17,900)M,N1,N2 
HH=M-1 
DO to I = i ,H 

DO 40 J =1, MM 
SUH(J , I)=0 
40 HEAN(I) = 0 

READ IN INPUT KILE 



c 
c 
c 



DO 10^ 1=1 ,H 

R£AD(16,910)IC,(BA(I,J),J=l,9),CONCNH(I) 
1 00 CONTINUE y 
' WRITE(6, 950 ) ""^^ 
DO 2 1 0 K = 1 , HH 
L=K + 1 

DO 210 J=L,H 
IsJ-1 

DO 200 NN = 1 ,9 

200 SUM(K,I) = ((BA(J,NN)-BA(K,fJN))**2) +SUH(K,I) 

210 SUM(K,I)=SQRT(3UH(K,I)) 




C- 
C" 

c^ 
c 
c* 



WRITE HEADING 



WRIT£(6,920) 
DO 500 K=1,HH 
J=0 

DO 400 I=K,HH 
JsJ + 1 

400 HEAN(J)=SUH(K, I) 

L2 = 15 



c* 
c* 
c* 
c 
c* 
c 



WRITE DISTANCE MATRIX TO DISK FILE (SEMDIF/D04) 
PRINT OUT DISTANCE MATRIX 



WRITE(1 7, 930) (HEAN(L) ,L = 1 , J) 
DO 450 Lsl , J, 15 
IF(L2.GT.J)L2=J 



C 



ERIC 



20 



22 



WKrrE(6,9tO)K,(MEAN(Jl),Jl=L.L2) 
WRITE (7 , 960 ) (MEAN (J 1 ) , Jl =L, L2) 
t50 L2=L2+.l5 

H»IT€(6, 950) 
500 CONTINUE 
r REWIND lY 

CLOSE ('7,STATUS = "Ni;W") 
RETURN 

STOP ■ - 

900 ftlRMAT(3(I3,3X)) 

90 5 e'ORMAT( 1 X, "CONC" , 3X , " 1 " , 6X , " 2 " , 6X , " 3 " , 6X , " t " , 6X , " 5 " , 6X , " 6 " , 6X , 

■"7",6X,"8",6X,"9"/" HO."/) 
910 P0RMAT(1X,I3,9F7.3,2X,A15) 

920 KORMATC' THE OSGOOD DEES BETWEEN THE CONCEPTS ARE SHOWN BELOW"/ 
FIRST GROUP Or HOWS SHOWS CONCEPT 01 AGAINST 02, 03, 04 ETC."/ 

*" SECOND GROUP OF ROWS SHOWS CONCEPT 02 AGAINST 03, 04, 05 ETC."/ 
THIRD GHOUr SHOWS COHCEPt 03 AGAINST THE OTHERS. FOURTH GROUP- 

■ CONCEPT Ot ETC. — "// 

"1 6X , "2 3 t 5 6 7 8 9 1 0 1 1= 12 

13 14 15 16"//) 
930 F0RMAT(F6. 2) 

940 F0RMAT(1X,"C0NC " , 1 3 , 3X , 1 5F 6. 2 ) 
950 FORMATdX,//) 
960 FORMATdX, 15F6. 2) 
END 

C" 

SUBROUTINE LRANK 

(^■■■■4ii#*ii<>aaaliaaaa»itiiiiWiiiiiiiia<ii(ii«liali<>iitfiiiiaiia»Kiiajt»S4iiiiiiii«aitiiiiiijtir«iililliijiii 

c* 
c* 

C* SUBROUTINE LRANK 

C (CORHELATIOH BETWEEN DEES AND EPA DISTANCES) 

C» ■• , 

C* THIS SUBROUTINE RANKS THE D VALUES COMPUTED IN SUBROUTINE 

C- SDGPD AND THE EPA DISTANCES COMPUTED IN SUBROUTINE SD2PTD. 

C* IT THEN COMPUTES THE SPEARMAN RANK CORRELATION COEFFICIENT 

C- FOR THE TWO GROUPS OF DATA, IT HANDLES" A DISTANCE MATRIX 

C* FOR UP TO 109 CONCEPTS. 
C- 

C* DATA IS INPUT' FROM 2 DISK FILES; 
Z* SEMDIF/D02 - CREATED BY SUBROUTINE SD2PTD 

C- SEMDIF/D04 - CREATED BY SUBROUTINE SDGPD 

C- ' 

C- BOTH FILES HAVE THE FOLLOWING FORMAT: 

r « 

>j 

C- RECORD CONTENTS 

C- 1-CN-l) DISTANCES pETWEEN THE 1ST CONCEPT AND CONCEPTS 

C- 2 TO H - XXX. XX 

C- N-(2N-3) DISTANCES BETWEEN THE 2ND CONCEPT AND CONCEPTS 

C- 3 TO N - XXX. XX 

C^ . 
C* . 

C- H(N-l)/2 DISTANCE BETWEEN THE (N-l) CONCEPT AND CONCEPT N 

C^ 



21 



C* THE RESULTS OF THIS SUBROUTINE PLUS THE t-'IRST TEN VALUES 

C FROM EACH OF THE ABOVE INPUT FILES ARE SENT TO THE PRINTER. 
C 

C- THE SUBROUTINE USES THE IBM SUBROUTINES RANK, TIE, AND SRANK. 




C" 

C" 



DIMENSION A(5886 ), 8(5886 ).R(1 1772 ) 



\ 



C" K = K3 = NUMBER OF CONCEPTS TO BE PROCESSED 

C" Kl= KH = MUMBER OF 1ST CASE 

C" K2= K5 = HUMBER OF LAST CASE 



READd H, 900 )K , K1 , K2 
READ(17, 900)K3,K1»,K5 
WRITE(6,910)K,K1,K2 
HH =0 

N=(K'(K-1 )))2 



DO 100 1=1, N 

READ(Ht,920) A(l) 
100 READ(17, 920) B(l) 

WRITE(6,9tO)K,K, K1,K2 

DO 200 1 = 1 , 10 
200 WRITE(6,950)A(I) ,B(I) 

CALL SRANK ( A, B , R , N , RS , T , N DF , NR ) 

WRITE(6, 960) f^S.T.NDF 

KETURN 
900 /ORMAT(3(I3. 3X)) 
910 FORMATCIX, 3(13, 3X)//) 
920 FORMAT ( F6.2) 

9»tO FORMATC no. of CONCEPTSs" ,13, " , CONCEPT NO. 1 TO CONCEPT NO. 

«I3," CASE NO. ",I3," TO CASE NO. ",I3//) 
950 FORHAT(lX,"A(I)=",F6.2,3X,"B(I)-",F6.2) 

960 FORMAT ("0 SPEARMAN RANK CORRELATION C OEF F IC IE NT = " , F5 . 2/ 
*" SIGNIF IC ANCE = " ,F8. 3/" HUMBER OF" DEGREES OF FR EE DOM s " , 15 ) 
END 

SUBROUTINE SRANK(A,B, R , N , RS , T, NDF , N R ) 

C" ■ 

C" SUBROUTINE SRANK 
•C" 



C- 
C" 

c? 
c« 

C" 

c* 

C" 

c 



READ If) INPUT DATA 



ARRAY A=SD2PTD 
ARRAY BsSDGPD 



ERIC 







4 




c- 


TEST 


CORRELATION BETWEEN TWO VARIABLES BY MEANS OF 


SPEARMAN 


c- 


RAHK 


CORRELATION COEF t-" IC IE NT 




c- 

C" 


US AGE 






c- 

C" 


CALL 


SRANK(A,B,R,N,RS,T,NDF,NR) 




c- 


DESCRIPTION Ot-" PARAMETtRS 




c- 


A 


- INPUT VECTOR Of N OB SER V AT lO^JS FOR FIRST VARIABLE 


c* 


B 


- INPUT VECTOR OF N OBSERVATIONS FOR SECOND VARIABLE 


c* 


R 


- OUTPUT VECTOR FOR RANKED DATA, LENGTH IS 2*N 


. SMALLEST 


c- 




OBSERVATION IS RANKED 1, LARGEST IS RANKED N 


. TIES 


c- 




ARE ASSIGNED AVERAGE OF TIED RANKS. 




0* 


H 


- NUMBER OF OBSERVATIONS 




0** 


RS 


- SPEARMAN RANK CORRELATION COE t'""f IC IE NT (OUTPUT) 


c- 


T 


- TEST OF SIGNIFICANCE OF RS (OUTPUT)' 




C" 


NDf 


- NUMBER OF DEGREES OF FREEDOM (OUTPUT) 




c- 


HK 


- CODE, 0 FOR UNRANKED DATA IN A AND B, 1 FOR 


RANKED 


c- 




DATA IN A ' AND B ( INPUT ) 




C" . 
C" 


REMARKS 






c- 


T IS 


SET TO ZERO IF N IS LESS THAN TEN 




C" 

c- 


SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 




c-" 


RANK 






c- 


Tie 






c- . 


METHOD 






C" 


DESCRIBED IN S, SIEGEL, NON P A RAM ETR IC STATISTICS 


For the 


C" 


BEHAVIORAL SCIENCES", MCGRAW-HILL, NEW YORK, 1956, 




c- 


CHAPTER 9 





DIMENSION A( 1 ) ,B( 1 ) ,R(1 ) 

C- 

FN = FLOAT(N ) 
FNNN = (FN'**3)-FN 

C- 

C- DETERMINE WHETHER DATA IS RANKED 

C- 

Ir(NR-1 ) 5, 10, 5 

C* 

C- RANK DATA IN A AND B VECTORS AND ASSIGN TIED OBSERVATIONS 

C- AVERAGE OF TI"D RANKS 

NS=0 H 

5 CALL RANK ( A , R, N , RS, T, N DF , NS ) 
NS=N 

CALL RANK ( B, R, N , RS , T , N DF , NS ) 
GO. TO HO 

C-'J 

cl MOVE RANKED DATA TO R VECTOR 

C* \ 

10 DO 20 Isl , N 
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20 fid )=A(r) 

DO 30 1=1, N 
30 tl(J )=D(I ) 

c- ■ ■ 

C' COMPUTV SUM Of SQUARES OF RANK DIFFERENCES 

C- 

HO D=0.0 

DO 50 IsT.N 
J = I+N 

50 D = D + (R(I )-R(J))*(R(I)-R(J)) 

C- 

C- COMPUTE TIED SCORE INDEX 

C^ 

NS=0 

CALL TIE (R , N ,KT ,TSA. NS ) 
NS=N 

CALL TIE (R , N ,KT ,TSB, NS ) 

c- ■ ■ , ■ 

C- COMPUTE SPEARMAN RANK CORRELATION COEFFICIENT 

C- 

XF(TSA) 60, 55, 60 ' . ' 
55 IF(TSB) 60,57,60 
57 RS = 1.0-6.0-D/FNNN 

00 TO 70 

60 X=FNNN/12.0-TSA > ' ' 

YsX+rSA-TSB - . 

RS=(X+Y-D)/(2.0^(SQRT(X--Y))) C 
WRX'rE(6,90O)FNNN,X,Y^'; 

c* ■■ , 

C- COMPUTE T AND DEGREES OF* FREEDOM IF" N IS 10 OR LARGER 

C- 

T=0.0 

70 IF(N-IO) 80, 75 , 75 , \ 

75 CONTINUE \ 

TsRS''SQRT(FL0AT(N-2 )/( 1 . 0-RS-RS)) \ 
80 NDF=N-2 ' ■ ■ ■ 

RETURN 

900 F0RMAT(lX,"FNNN = ",G10.i»," Xs",G10.'»," Y s.J'yG 10 . H , " D = ",G10.t> 
END . ^, 

SUBROUTINE TIE ( R , N , KT , T, NS ) 
C- . , 

C- SUBROUTINE TIE 
C- 

C- PUR POSE " . \ 

C* CALCULATE CORRECTION FACTOR DUE TO TIES' ' 

C- . .-^ 

C- USAGE 

C- CALL TIE(fi,N,KT,T) n., 

C" " 

C- DESCRIPTION OF PA'.AMETERS 

C* R - INPUT VECTOR OF RANKS -OF LENGTH N CONTAINING VALUES 



c 
c 
c 

C' 

c 

C' 
C' 

c 
c 
c* 
c< 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

C' 

c 



H 

KT 



1 TO N 

NUMBER OF RANKED VALUES 

- INPUT CODE FOR C ALC UL ATION OF CORRECTION FACTOR 

1 SOLVE E-QUATIOH 1 

2 SOLVE EQUATION 2 
CORRECTION FACTOR (OUTPUT) 

EQUATIOH 1 T = SUH( CT^-'3-CT)/l 2 
EQUATION 2 ^ T=SUH( CT* (CT-1 )/2 ) 
WHERE CT IS TH'e HUMBER OF OBSERVATIONS TIED FOR A 
f GI VEN RANK 



REMARKS 
NONE 



C- 
C* 
C- 



C- 

C 
C- 



C- 
C- 



C- 



SUBROUTINES AND FUHCTION SUBPROGRAMS REQUIRED 
NONE 

METHOD 

VECTOR IS SEARCHED FOR SUCCESSIVELY LARGER RANKS. TIES ARE 
COUNTED AND ^JORRECTION FACTOR 1 OR 2 SUMMED. 

t m m* ^ti.* *ti *■* tt* *ti m* * m a* ti* *k *it-** 4i*itii m* *ti **** It* * m *1t m* *^ *ii *^ *1t * 

DIMENSION (1 ) 

IN ITIALIZATION 

■T=0.0 
Y = 0.0 
5 X=1.0E38 
IN~D=0 

FIND NEXT LARGEST RANK 
DO 30 1 = 1 , N 

IP(R(NS+I )-Y) 30,30, 10 
10 lp(R(NS + I )-X ) 20, 30, 30 
20 X=R (NS + I ) 

IND=IND + 1 
30 CONTINUE 

IF ALL RANKS HAVE BEEN TESTED, RETURN 

IF(IND) 90,90,40 
HO Y = X 

CTzO. 0 

COUNT TIES 

DO . 60 I = 1 , N 

IF(R(NS+I)-X) 60,50,60 
50 CTsCT+1 . 0 

60 CONTINUE ^ 
CALCULATE CORRECTION FACTOR 



ERIC 



IF(CT) 7 0,5,70 
70 If (KT-1 ) 75 , 80 , 75 
75 T=T+CT'»( CT-1 .) /2.0 

GO TO 5 

80 ■r=T + (cT«cT»CT-cr )/ ' i:. 0 

GO TO 5 
90 CONTINUE 
RETURN 

BHD 

SUBROUTINE RANK(A,R,N,RS,T,NDF,NS) 

C 

C* RANK A VECTOR OF VALUES 

C USAGE 

C* CALL RANK(A, R,N) 

C* DESCRIPTION OF PARAMETERS 

C* A - INPUT VECTOR OF N VALUES 

C* R - OUTPUT VECTOR OF LENGTH N, SMALLEST VALUE IS RANKED 1, 

C* LARGEST IS RANKED N. TIES ARE ASSIGNED AVERAGE OF TIED 

C- RANKS 

C* * N - NUMBER OF VALUES 

C" REMARKS 

C* NONE 

C« SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

C- NONE 

C*. METHOD 

C* , VECTOR IS SEARCHED FOR SUCCESSIVELY L'ARGER ELEMENTS. IF TIES' 

C* OCCUR, THEY ARE LOCATED 'AND THEIR RANK VALUE COMPUTED. 

C« FOR EXAMPLE, IF 2 VALUES'-ARE TIED FOR SIXTH RANK, THEY ARE 

C« ASSIGNED A RANK OF 6.5 (=(6+7)/2) 

Q«il»iiiiti»i»i»»i»i»«i»«i»*hi»«i»i»i»«i»iti»si»i»*i»«itirjtjt«i»i»lti»«i»i»i»i»i»«iiihi»«i»i»Aitil»ihi»h«i»il«i» 

c- 

DIMENSION A(1 );R(1 ) 

■ INITIALIZATION 
DO- 10 1 = 1 ,N ■ 
10 R(NS + I)=0.0 ' - ■ , 

C* 

C* FIND RANK OF DATA 

C* 

DO 100 1*1 , N 

C* TEST WKKTHEll DATA POINT IS ALREADY RANKED 

C* 

IF(R(NS+I)) 20, 20,^ 100 

C* 

C« DATA POINT TO BE RANKED 

C* . 

20 SMALL=0.0 

EQUALrO.O 

X=A(I) 

DO 50 J = 1 , N • 
IF(A(J)-X) 30, J40, 50 
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C* COUNT NUMBER Of DATA POINTS WHICH ARE SMALLER 

C* 

C« 

30 3MALL=SHALL+1 , 0 
. GO TO 50 

C« 

C« COUNT NUMBER Of DATA POINTS WHICH ARE EQUAL 

C* 

iiO EQUAL = EQUAL+1 ,0 
R (NS+J . 0 
50 CONTINUE 

C 

C- TEST FOR TIE 

C« 

IF(EQUAL-1 ,0) 60, 60, 70 

C* 

C« STOrtE RANK'OF data POINT WHERE NO TIE 

C« 

60 R (NS+I )zSHALL+l , 0 

GO TO 100 

C« 

C* CALCULATE RANK OK TIED DATA POINTS 

C* 

70 P=SHALL + (EQUAL + 1,0)«0,5 
DO 90 J s.t , N 

IK(R(NS+J)+1 ,0) 90, 80, 90 
80 R(NS+J) = P 
, 90 CONTINUE 
100 CONTINUE 
RETURN 
END 

SUBROUTINE DATIT('WHEN) 

CHARACTER<8 WHEN 

CHARACTER<6 B 

DATA WHEN/" / / "/ 

BsDATEC'HMDDYY") 

WHEN (1 : 2)=B( 1 : 2) 

WHENU:5)sB(3:'<) 
WHEN(7:8)=B(5:6) 

RETURN 
END 



$RESET FREE SET LIST 

FILE 5(KIND=**REM0TE*\ MYUSE^^IO") 

FILE 6 (KIND="PRINTER") 

FILE 2 (KIND='*DISK'',TITLE="SEMDIF/INPUT.'*,FILETYPE=7,STATUS = '*0LD") 

FILE 7 (KIND="DISK*',TITLE=*'SEMDlF/0SG00D/0UT.",MAXRECSIZE=7, 

*BLOCKSIZE=420,PROTECTION="SAVE*' ,FLEXIBLE=*TRUE" ,AREAS = 20, 

*STATUS=*'NEW") 

Q*********************************************************-t ******* 
C* 

C* SEMDIF/OSGOOD -JsOURCE * 

C* ^ ' , 

C* OBJECT/SEMDIF/OSGOOD - OBJECT 
C* 
C* 

C* , THIS PROGRAM COMPUTES OSGOOD D (DISTANCE) VALUES FOR^^ACk 

C* RATED CONCEPT AND OTHER CONCEPTS ON THE SUBSCALES IN \ 

G* PREPARATION FOR USE WITH THE WILCOXON OR OTHER RANK 

C* STATISTICAL TEST. IT WAS DEVELOPED BY BARBARA L. METIVIER 

C* AND EDWIN D, LAWSON AT THE COMPUTER CENTER, STATE UNIVERSITY 

C* COLLEGE AT FREDONIA, N.Y. 14063. 
C* 

C* THE PROGRAM IS SET UP TO HANDLE 6 CONTROL CONCEPTS VmOSE 

C* IDENT NUMBERS ARE THE LAST 6 NUMBERS OF THE CONCEPT LIST 

C* (I.E. IF THERE. ARE 106 CONCEPTS, THE RATED ONES ARE 101-106) 
C* 

C* THE INPUT FILE (SEMDIF/lNPUT) HAS THE FOLLOWING FORMAT: 
C* 

C* ■ RECORD COL CONTENTS 

C* 1 1-3 NUMBER OF CASES 

C* 4-6 SPACE . • , . 

C* . 7-9 NUMBER OF CONCEPTS 

C* ^ 10-12 SPACE 

C* 13-14 PRINT CODE (NOT USED BY THIS PROGRAM), 

C* 01 - PRINTS, MEANS AND MEANS DOUBLED 

C* 02 - PRINTS MEANS,. MEANS DOUBLED, SUM, 

C* SUM SQUARES, STANDARD DEVIATION, 

C* STANDARD ERROR OF THE MEANS 

C* ^ ■ 15-17 SPACE- 

C* 18-20 / IDENT NUMBER OF 1ST CASE 

C* ' ■ 21-23 /" SPACE 

C* 24-26 / IDENT NUMBER OF LAST CASE 

C* 27-28,/ SPACE 

C* 2X-4i FILE NAME 



C* 

C* 2 1-3 CASE IDENT NUMBER - NUMERIC 

C* - 3 1-3 CASE IDENT NUMBER 

C* ' 4-6 CONCEPT IDENT NUMBER - NUMERIC 

C* 7-21 CONCEPT NAME - ALPHA 

C* 22-23 SPACE 

C* 24-32 SUBSCALE SCORES - NUMERIC 
C* 

C* REPEAT RECORD 3 AS NEEDED - 1 FOR EACH CONCEPT 

C* (RECORDS NEEDED FOR ONE CASE) . 



c* 
c* 

-C* 

c* 

c* 

c* 

c*- 

c* 

c* 

C* ' 

c* 

c* 

c* 

c* 

c* 
' c* 

c* 

c* 
' c* 

c* 

c* 

c* 

c** 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 
. c* 
. c* 

c* 

c* 

c* 

c* 

c* 

c* ■ 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 
ERIC 



REPEAT ABOVE GROUP - ONE FOR EACH CASE - ENDING 
WITH A FINISH RECORD. 



LAST 



1-3 



-99 (FINISH- RECORD) 



THE OUTPUT FILE (SEMDIF/OSGOOD/OUTPUT) HAS THE FOLLOWING 
FORMAT : 



CONTENTS 

NAME OP 1ST CONTROL CONCEPT 

NAME OP 2ND CONTROL CONCEPT 

NAME OP 3RD CONTROL CONCEPT 

NAME OP 4TH CONTROL CONCEPT 

NAME OP 5TH CONTROL CONCEPT 

NAME OP 6TH CONTROL CONCEPT 

IDENT NO.' FOR 1ST CONTROL CONCEPT 

IDENT NO. POR 1ST NON-CONTROL CONCEPT 

CASE NO. FOR 1ST NON-CONTROL CONCEPT 

OSGOOD D BETWEEN ABOVE 2 CONCEPTS 

BLANK 

NAME OF 1ST NON-CONTROL CONCEPT 
IDENT NO. FOR 2ND CONTROL CONCEPT 
SAME AS ABOVE y- 

IDENT no; for ^RD CONTROL CONCEPT 
SAME AS ABOVE 

SAME AS ABOVE ONLY FOR 4TH,5TH,6TH 
CONTROL CONCEPTS 

IDENT NO. FOR 1ST CONTROL CONCEPT 
IDENT NO. FOR 2ND NON-CONTROL CONCEPT 
CASE NO. POR 2ND NON-CONTROL CONCEPT 
OSGOOD D BETWEEN ABOVE 2 CONCEPTS 
BLANK 

NAME OP 2ND NON-CONTROL CONCEPT 
IDENT NO. FOR 2ND CONTROL CONCEPT 
SAME AS ABOVE (RECORD 7) 
SAME AS ABOVE ONLY FOR 3RD,4TH,5TH, 
6TH CONTROL CONCEPTS 



REPEAT THESE GROUPS OF 6 RECORDS - ONE GROUP FOR 
EACH NON-CONTROL CONCEPT (RECORDS FOR 1 CASE) . 

REPEAT ABOVE GROUP (6 X Ml RECORDS) - 1 FOR EACH 
CASE. 

M=TOTAL NUMBER OF CONCEPTS 

Ml-TOTAL NtMBER OP NON-CONTROL CONCEPTS 

N=TOTAL NUMBER OF CASES 

LTAG1=IDENT NUMBER OP 1ST CASE 

LTAG2='IDENT NUMBER OF LAST CASE 



RECORD 


COL 


1 


1-17 




18-34 




1-17 




18-34 


3 


1-17 




18-34 


4 


1-3 




4-6 




7-9 




10-19 ' 




20-22 




23-33 


5 


1-3 




4-33 


6 


1-3 




4-33 


7-9 




10 


1-3 




4-6. 




7-9 




10-19 




20-22 




23-33 


11 


1-3 




4-33 


12-15 





★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 

t 

★ 
★ 
★ 
★ 

★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 

★ 
★ 

★ 
★ 
★ 
★ 
★ 
★ 
★ 
★ 

★ 



c* 

INTEGER CNUMBR,CASE{109) 

CHARACTER*15 CONCNM C109) , FJDIN*18, FID0UT*24, FIDSRT*30 
DIMENSION BA(109,9) , •A(6) 

C* 
C* 

C* ENTER NAME OF INPUT FILE THROUGH THE TERMINAL. 

C* ■ " 

C*' 

WRITE(5,*) "ENTER NAME OF INPUT FILE. NO MORE THAN 17 CHARACTERS, 
♦PLEASE" 
READ(5,906)FIDIN' 
IF (FIDIN(18:) .NE." ")THEN 

FIDIN(18:)="." 

GO TO 70 
ELSE 

DO 50 1*17,1,-1 
50 'IF(FIDIN{I:I) .NE." ")G0 TO 60 

60 1=1+1 

■fIDIN(I:I)="." 
END IF 

C* 

C* OPEN INPUT FILE 

C* ' . 

70 OPEN (2, FILE=FIDIN) 

C* 
C* 

C* CREATE NAME OF OUTPUT FILE AND NAME OF SORTED OUTPUT FILE. 

C* , . 

C* 

1=1-1 

FIDOUT=FIDIN (1 : 1 ) //"/SD . " 
1=1+3 

FIDSRT=FI DOUT ( 1 :I ) //" /SORT . " 

-WRITE(5,*)"THE FOLLOWING NAMES ARE YOUR FILE NAMES. THE FIRST IS 
♦YOUR INPUT FILE AND THE SECOND IS YOUR OUTPUT FILE. " ,FI DIN ,FIDOUT 

C* 

C* OPEN OUTPUT FILE 

C* 

0PEN(7 ,FILE=FIDOUT) 
READi2,901) N,M,LTAG1,LTAG2 
, B=0 V 

Ml=M-\6 

C* * 

C* FOR DEBUGGING PURPOSES ONLY, WRITE FILE IDENTIFICATION 

C* INFORMATION. 

C* 

C* WRITE(6,903)N,M,LTAG1,LTAG2 

C* WRITE(6,920)M1 

C* 

DO 230 11=1, N 

READ(2,902) ITAG 

DO 103 -1=1 fM ■ ^ 
READ{2,905) ICASE , IC , CONCNM (IC) , (BA(IC,K) ,K=1,9) 
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CASE(i:C)=ICASE 
DO 103 JJ=1,9,2 

BA{IC,JJ)=8-BA(IC, JJ) 
103 CONTINUE 
M2=M1+1 

C* 

C* WRITE CONTROL CONCEPT NAMES 

C* 

IP (II.GT.'l) GO TO 185 , 

WRITE(7,9 30)CONCNM(M2) ,C0NCNM(M2+1) 

WRITE(7,9 30)CONCNM(M2+2) ,CONCNM(M2+3) 

WRI TE ( 7 , 9 3 0 ) CONCNM (M 2+4 ) , CONCNM (M2 + 5 ) 
185 DO 220 J=1,M1 

DO 190 L=l,6 
190 A(L)=0 

DO 210 I=M2,M 
L=I-M1 

DO 200 K=l,9 

B=(BA(I,K)-BA(J,K) )**2 
200 A(L)=A(L)+B 
A(L)=SQRT(A(L) ) 

WRITE(7,900)I,J,CASE(J) ,A(L) ,CONCNM(J) 
210 CONTINUE 
C* . ■ 

C* FOR DEBUGGING PURPOSES ONLY, WRITE CONCEPT NAME AND 

C* CALCULATED DISTANCES. 

C* 

C* y*RITE(6,9lO)CONCNM(J) , (A(L) ,L=1,6) 
■ 220 CONTINUE 
230 CONTINUE 
STOP 

900 P0RMAT(3(I3) ,P10.5,3X,A15) 

901 PORMAT(-2(I3,3X) ,.2X,2(3X,I3) ) 

902 P0RMAT{I3) 

903 P0RMAT(1X,2(I3,3X) ,2X,2(3X,I3) ) 

905 PORMAT(2I3,A15,2X,9P1.0) 

906 ?0RMAT(A18) 

910- PORMAT(1X,A15,6(4X,P10.5)) 

920 PORMATp X^^THE OSGOOD D VALUES" POR EACH CONTROL CONCEPT AWD " , 
113," OTHER CONCEPTS ARE SHOWN' BELOW. ''//3X , "CONCEPTS" , 9X, "GOOD" , 
2 IIX* "BAD", gX, "STRONG", 9X, "WEAK", 9X," ACTIVE" ,9X, "PASSIVE"//) 

930 P0RMAT(1X,A15,IX,A15) 
■ END 
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$SET LIST 
$RESET$FREE 

.$SET$AUT0BIND" /~\ 
$BIND FILSRT FROM OBJECT/STAT/SEMDIF/SQRT 

FILE , 2(KIND=DISK,TITLE="SEMDIF/DEBUG.'',MAXRECSIZE=14,BLOCKSIZE=420) 
FILE ' 3(KJND=DISK,TITLE=:''DISICINl'',FILETyPE=:7) 

FILE 4(KIND=DISK,TITLE="DISKlN2",FILETyPE=7) 

FILE 5(KIND=REMOTE,MyUSE=lO,MAXRECSIZE=80). 

FILE 6(KIND=DISK,TITLE="DISKOUT1'SmAXRBCSIZE=14,BLOCKSIZE=420) 

FILE 7(KIND=DISK,TITLE=:'**DISKOUT2",MAXRBCSIZE=14,BLOCKSIZE=420) 

FILE 8(KIND=DISK,TITLE=:''DISKOUT3";mAXRECSIZE=14,BL6CKSIZE=420) 

FILE 9-(KIND=DISK,TITLE=*'DISK0UT4" ftMAXRBCSIZE=:14,BLOCKSIZE=420) 

FILE 10 (KIND=PRINTER) 

FILE ir(KIND=DISK,TITLE=*'DlS^SRTl*';MAXRECSIZE=7,BLOCKSIZE=420) 

FILE 12(KIND=DISK,TITLE="DISKSRT2**;mAXRECSIZE=7,BLOCKSIZE=:420) 

FILE 14(KIND=DISK,TI.TLE=:"DEBUG'',MAXRECSIZE=14-,BLOCKSIZE=420) 

FILE 15 (KIND=PRINTER) " • 

C* 

Q* ************************************************************* ******* 

C* ' ^ 

C* - 

C* SEMDIF/SIGTEST - SOURCE 

C* ■ , 

C* OBJECT/SEMDIF/SIGTEST - OBJECT 

C* 

C* 

C* 

C* THIS PROGRAM IS AN ADAPTATION OF THE MPAIR SUBROUTINE OF THE 

C* SySTEM/360 SCIENTIFIC SUBROUTINE PACKAGE OF THE WILCOXON TEST 

C* FOR USE WITH SEMANTIC DIFFERENTIAL DATA, THE PROGRAM TAKES 

C* DATA INPUT FROM PROGRAM SEMDIF/OSGOOD AND MAKES A SERIES OF 

C* COMPARISONS, THIS PROGRAM WAS MODIFIED FOR USE WITH THE 

C* SEMANTIC DIFFERENTIAL PROGRAM BY BARBARA L, METIVIER, EDWIN 

C* D, LAWSON, & MARCY METIVIER AT THE STATE UNIVERSITY COLLEGE 

C* OF NEW YORK AT FREDONIA, NEW YORK 14063, 
C* 

* THIS PROGRAM TESTS THE SIGNIFICANCE OF THE DISTANCE (CONVERTED 

C* II^TO RANKS) AS A TWO-TAILED TEST BETWEEN , ONE 'CONCEPT AND TWO 

C* OTHER CONCEPTS, THUS WHERE 101=^CONCEPT GOOD AND i02=CONCEPT 

C* BAD WE ARE INTERESTED IN LEARNING WHETHER ANOTHER CONCEPT SUCH 

C* AS SELF=07 IS SIGNIFICANTLY CLOSER TO THE CONCEPT GOOD OR TO 

C* BAD, 

C* THE IDENT NUMBERS OF THE COffPROL CONCEPTS ARE THE LAST 6 

C* NUMBERS OF THE CONCEPT LIST' (I,E, IF THERE ARE 106 CONCEPTS, 

C* THE CONTROL (OR REFERENCE) CONCEPTS ARE, 101-106) , THE PROGRAM 

C* WILL HANDLE UP TO 109 CONCEPTS INCLUDING THE LAST SIX, THE 

C* NAMES OF THE CONTROL CONCEPTS ARE CONTAINED IN THE FIRST 3 

C* RECORDS, ADDITIONAL CONTROL OR REFERENCE CONCEPTS CAN BE LISTED 

C* BY MOVING ADDITIONAL CONCEPTS TO THE LAST SIX POSITIONS 

C* - • , ' . 

^* THE PROGRAM IS ALSO SET UP TO USE TWO INPUT FILES AND COM- 

C* PARE THE DISTANCE BETWEEN ONE CONCEPT AND THE CONTROC CON- 

C* CEPT IN THE FIRST FILE- AND THE IDENTICAL CONCEPT, AND CON- 
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C* TROL CONCEPT IN THE SECOND FILE. INITIALLY IT PROCESSES * 

C* THE FIRST FILE AS DESCRIBED ABOVE AND THEN DOES THE SAME * 

C* WITH THE SECOND FILE. THEN IT TAKES FROM EACH FILE THE * 

C* DISTANCES BETWEEN EACH CONCEPT AND THE POSITIVE CONTROLS * 

-C* {I.E. GOOD, STRONG, ACTIVE) AND COMPARES LIKE CONCEPTS AS * 

C* AS DESCRIBED ABOVE. FINALLY IT DOES THE SAME FOR THE * 

C* DISTANCES BETWEEN THE CONCEPTS AND THE NEGATIVE CONTROLS * 

C* {I.E. BAD, WEAK, PASSIVE). * * 

C* " • * 

C* THIS AN INTERACTIVE PROGRAM WITH THE PROGRAM CONTROL INFOR- * 

C* ' BEING ENTERED THROUGH THE TERMINAL IN ANSWER TO A SERIES * 

C* OF QUESTIONS. A REPORT OF THE RESULTS IS SENT TO A PRINTER * 

C* FILE. * 

C* * 

C* THE NAME(S) OF THE INPUT FILE{S) ARE REQUESTED AT THE BE-- * 

C* GINNING OF THE RUN FROM THE TERMINAL. FROM THIS INFORMATION * 

C* THE-* NAMES OF THE OUTPUT FILES ARE' CREATED AND WRITTEN BACK * 

C* TO THE TERMINAL FOR YOUR INFORMATION. ' * 

. C* ' * 

C* THE INPUT -FILE HAS THE FOLLOWING FORMAT: * 

C* * 

C* RECORD COL CONTENTS * 

^C* . 1 1-17 ■ NAME OF FIRST CONTROL CONCEPT * 

C* 18-34 NAME OF 2ND CONTROL CONCEPT * 

C* 2 1-17 NAME OF 3RD CONTROL CONCEPT * 

C* ' , 18-34 NAME OF 4TH CONTROL CONCEPT * 

C* 3 1-17 NAME OF 5TH CONTROL CONCEPT * 

C*' 18-34 NAME OF 6TH CONTROL CONCEPT * 

C* 4 1-3 IDENT NO. FOR 1ST CONTROL CONCEPT * 

C* 4-6 IDENT NO, FOR 1ST NON-CONTROL CONCEPT * 

C* . 7-9 CASE NO, FOR 1ST NON-CONTROL CONCEPT * 

C* 10-19 OSGOOD D BETWEEN ABOVE 2 CONCEPTS * 

C* 20-22 BLANK * 

C* 23-36 NAME OF 1ST NON-CONTROL CONCEPT * 

C* 5 1-3 IDENT NO, FOR 2ND CONTROL CONCEPT * 

C* 4-36 SAME AS ABOVE - * 

C* 6 1-3 IDENT NO. FOR 3RD CONTROL CONCEPT * 

C* 4-36 ' ' SAME AS ABOVE * 

C* 7-9 SAME AS ABOVE ONLY FOR 4TH,5TH,6TH * 

C* CONTROL CONCEPTS / * 

C* 10 - 1-3 ' IDENT NO, FOR 1ST CONTROL CONCEPT * 

C*- 4-6 IDENT NO, FOR 2ND NON-CONTROL CONCEPT * 

C* 7-9 .CASE NO, FOR 2ND NON-CONTROL CONCEPT * 

C* 10-19 OSGOOD D BETWEEN ABOVE 2 CONCEPTS * 

C* 20-22 BLANK ' '* 

C* 23-36 NAME *0F 2ND NON-CONTROL CONCEPT * 

C* 11 1-3 IDENT NO, FOR 2ND CONTROL CONCEPT * 

C* 4-36. SAME AS ABOVE {RECORD 7) . * 

C* ' 12-15 ; SAME AS ABOVE ONLY FOR 3RD,4TH,5TH, * 

c* * 6th control concepts ' ' * 

C* ■ . * 

C* REPEAT THESE GROUPS OF 6 RECORDS - ONE GROUP FOR * 

C* EACH NON-CONTROL CONCEPT {RECORDS FOR 1 CASE) . * 

C* * 
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c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c*" 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 



REPEAT ABOVE GROUP (6 X Ml RECORDS) - 1 FOR EACH 
CASE . 

THE OUTPUT FTLE HAS THE FOLLOWING FORMAT: 

RECORD COL CONTENTS ' 

1 1-3 CONCEPT IDENT NUMBER 

4 BLANK , 

5-19 CONCEPT NAME 

20-26 P FOR GOOD VS BAD 

27-33 Z FOR GOOD VS BAD 

34-37 T FOR GOOD VS BAD 

38-40 + OR - ^ 

41-61 P, Z, T, + OR - (AS ABOVE) FOR 

STRONG VS WEAR— 
62-82 P, Z, T, + OR - (AS ABOVE) FOR 

ACTIVE VS PASSIVE 

REPEAT THIS RECORD - ONE FOR EACH NON-CONTROL . 
CONCEPT . ■ 



NOTE: 

A NEGATIVE SIGN MEANS THAT THE COMPARED CONCEPT IS 
CLOSER TO THE FIRST OF THE TWO CONTROL CONCEPTS. 

/ . . — . 

P = PROBABILITY OF BEING LESS THAN (TWO-TAILED TEST) 

Z = STANDARD SCORE , 

T = SUM OF RANKS + OR - DIFFERENCES WHICHEVER IS ' 
SMALLER 

C0N1-C0N6 ARE THE CONTROL OR REFERENCE CONCEPTS 

M=TOTAL NUMBER OF CONCEPTS 
M1=T0TAL NUMBER OF NON-CONTROL CONCEPTS 
N=TOTAL NUMBER OP CASES 

CARD ABOVE * 

THE FOLLOWING SUBROUTINE WERE REPRINTED BY PERMISSION FROM 
SYSTEM 1360 SCIENTIFIC SUBROUTINE PACKAGE (360A-CM-03X) 
VERSION III programmer's MANUAL, COPYIRIGHT 1966, 1967, 1968 
BY INTERNATIONAL BUSINESS MACHINES CORPORATION: 



RANK PAGE 71 

NDTR PAGE 78 

MPAIR PAGE 70 

SRANK PAGE 7 3 

TIE PAGE 74 

UTEST PAGE 75 



UPDATE (1982) 
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\ 

C* ' THIS PROGRAM HAS BEEN MODIFIED TO NOW INCLUDE THREE TESTS 

C* FROM WHICH THE USER CAN CHOOSE, THE WILCOXON TEST, THE MANN" 

C* WHITNEY TEST AND THE SPEARMAN RANK CORRELATION FOR THE INDIVIDUAL 

C* AGAINST THE CONTROL CONCEPTS. THESE TESI'S CAN ALSO BE PERFORMED 

C* WITH TWO (2) INPUT .FILES. 

C* IF THE USER HAS TWO (2) INPUT FILES AND CHOOSES EITHER THE 

C* WILCOXON OR MANN-WHITNEY TESTS, THE PROGRAM WILL ASK IF THE USER 

C* WOULD LIKE THE FILES TO BE ALSO RANKED. THIS IS ASKED AFTER THE 

C* ■ ORIGINAL TEST IS COMPLETED. 

C*' 

■ C* IF THE USER REQUESTS THE MANN-WHITNEY TEST, THE WILCOXON TEST IS 

C* FIRST DONE ON THE SEPARATE FILES. IF THE SPEARMAN RANK IS 

' C* , REQUESTED, AFTER IT ,IS DONE THE USER HAS THE CHOICE OF ENDING 

C* . THE PROGRAM OR PERFORMING EITHER THE WILCOXON OR THE MANN-WHITNEY 

C* TESTS. 

C* THE* WILCOXON (MATCHED PAIRS PROCEDURE) IS USED WITH ONE GROUP 

C* WHEN DIFFERENCES ARE TESTED BETWEEN A CONCEPT AND 2 REFERENCE 

C* POINTS SUCH AS GOOD AND BAD. THE WILCOXON CAN BE USED WITH TWO 

C* GROUPS, FOR EXAMPLE A PRE- AND POST- TEST ALSO. HERE TESTING 

C* WOULD B? TO SEE WHETHER A CONCEPT WAS CLOSER TO GOOD ON ONE 

C* TESTING' OR THE OTHER. THE MANN-WHITNEY IS USED WITH INDEPENDENT 

C* .GROUPS. 
C* 

C* THE SPEARMAN CORRELATION DETERMINES THE DEGREE OF ASSOCIATION 

C* BETWEEN TWO SETS OF DEE MEASUREMENTS,' AS , GOOD VS. CONCEPT 

C* IN ONE GROUP VS.' A^ECOND. 

C* ' . ■ ' 

C* MODIFICATIONS DONE BY BARBARA L. METIVIER AND MARCY L. * 

C* METIVIER COMPLETED SEPT. 1982. - * 

c* • - ■ * 

C* ■ * 

C* . - ■ * 

C* UPDATE (1983) * 

C* ' . * 

C* ANOTHER COLUMN HAS BEEN ADDED TO THE PRINTOUT IN ORDER TO * 

C* SHOW P ON A SCALE FROM 0 TO 100. THIS SCALE IS A SOMEWHAT * 

C* MODIFIED PERCENTILE SCORE. THE PROBABILITY -LEVELS ARE *' 

C* SHOWN IN THE TABLE UNDER "P*.! AND THE SCALED VALUES UNDER * 

C* "SC". THIS SCALE IS USED ONLY WITH THE WILCOXON MATCHED * 

C* PAIRS TEST. . ' * 

C*- ' . , * 

C* WHEN THE PROGRAM-iE^ RUN, A TABLE CONSISTING OF "NUMBER OF * 

C* • cases" vs. "F^iCfTORS" IS GIVEN TO' THE USER. IN ORDER TO MAKE * 

C* THE? CORRECT CONVERSION, THE USER MUST ENTER THE FACTOR * 

C* CORRESPONDING -TD THE NUMBER OF CASES IN THE SAMPLE. THE * 

C* USER CAN USE ANYWHERE FROM 15-50 CASES IN" STEPS OF FIVE. . * 

C* (I.E. '15, 20, 257 ETC.) * 

^* ~ • ^ ' ! 

C* KEY rs THE VARIABLE WHICH CONTROLS HOW MANY TIMES EACH TEST * 

C* IS RUN. NP CONTROLS WHICH TEST IS RUN ( l^WILCOXON, 2='MANN7WHITNEY* 

. C* 3=SPEARMAN RANK) . • ^ , * * 

c* ■ - ■ 

C* MODIFICATIONS COMPLETED AUGUST, 1983 BY M.L. METIVIER, AND * 
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C* V.THADEN * * 

C* * 
C* * 

*************************************************************** ****** 

C* 

c* 
c* 

INTEGER G,C,F,KEY 

DIMENSION A (5886) ,B{5886) ,D(50j ,E(50) ,L(50) ,S (12) ,S2(15) ,SN(3) > 
*C0NCNM(15), FILENM(4) ,FIDIN1(4) , FIDIN2 (4) ,FIDST1 (5) , FIDST2(5), 
*F0UT1(5), FOUT2(5), FOUT3(5), F0UT4 (5) , C0Nl(3), C0N2(3)*, C0N3(3), 
*CON4(3), CON5(3), C0N6(3), DATE (2) ,SPE (6) ^ 

DATA SN/"-\" + "," = V» KEY/0/, ADDl , ADD2 ,ADD3 ,ADD4/ "/SORT . V , 
*VOUT.", VPOS.", "/NEG. V»N1,N2,N3,N4/4*0/ 

C* 

C* INITIALIZE FILE NAME ARRAYS AND ENTER CONTROL 'INFORMATION. 

C* ■ ^ 

CALL DATIT(DATE) 

KEY=0 

DO 10 1=1,4 

FIDIN1{I)=" " 
FIDIN2(I)=" " 
FIDST1(I)=" " 
FIDST2('l)=" " 

F0UT1(I)=" " - ' 

F0UT2(I)=" " 
F0UT3(I)=? " 

10 F0UT4(I)=" " ' ^ 

FIDST1(5)=" " 
FIDST2(5)=" " 
F0UT1(5)=" " 
FOUT2(5)=" " 
FOUT3(5)=" " 
FOUT4(5)=" " 

C* 

C* . ENTER CONTROL INFORMATION . 

C* ' ' 



H 



WRITE(5,*/)"PLEASE ENTER TOTAL NUMBER OF CONCEPTS. 
READ(5,/)M 

WRITE(5,*/)"PLEASE ENTER NUMBER OF CASES IN EACH FILE. (THIS TEST 
*AS WRITTEN-IN THIS PROGRAM CAN ONLY BE DONE WITH SAMPLES OF 15-50. 
* CASES IN 5-STEP INTERVALS.)" - 

READ(5,/)N 

CALL TABLE 

WRITE(5,*/) "PLEASE ENTER THE CONVERSION FACTOR (EX. FOR 35 CASES, 
*ENTER 5.15943) 
READ(5,916)CONV 

■WRITE (5,*/) "ENTER, NUMBER OF INPUT FILES." 

READ (5,/)NF ,, ' 

IF (NF.EQ.l) GO TO 20 

WRITE (5,*/) "ENTER 1 IF MATCHED PAIRS, 2 FOR INDEPENDENT GROUPS," 

WRITE(5(*/)"0R 3 FOR SPEARMAN RANK CORRELATION." 

READ(5,/)NP 

20 WRITE (5,*/) "PLEASE ENTER NAME OF FIRST INPUT FILE - NO MORE THAN 
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*20 ^CHARACTERS 
WRITE(5, */)">" 
READ (5,9a6L FIDINl ■ 
IF (NF^EJCraCO TO 30 

WRITE "PLEASE ENTER NAME OF SECOND INPOT FILE - NO MORE THAN 

*20 CHARACTS^RS. " 
WRITE(5, */)">" ' ^ 

READ{5,906) FIDIN2 
C* . 

C* CREATE NAMES FOR SORTED FILES " * 

C* ■ ■' ■ 

30 CALL HEWNAM(FIDINll^VlDSTl,ADDl,Nl,N2) 

IF(FIDIN2(1) .NE." ")CALLNEWNAM (FIDIN2 ;fIDST2 ,ADDl ,N3 ,N4 ) 

C* 

C* CF^EATE OUTPUT FILE NAMES. 

C* ' ■ . 

CALL NEWNAM(FIDINl,FOUTl,ADD2,Nl,N2) 
IF(FIDIN2(1) .EQ." ")G0 TO 40 
CALL NEWNAM (FIDIN2 ,F0UT2 ,ADD2 ,N3 ,N4) 
CALL NEWNAM(FIDINl,FOUT3,ADD3,Nl,N2) 
CALL NEWNAM ( FIDINl , F0UT4 , ADD4 , Nl ,N2 ) 
I- - ' ^ " 

C* CHANGE FILE NAMES 

r* 



C* 
C* 

c* 

CHANGE (4,TITLE=FIDIN2) 
C* CiyVNGE (7, TITLE=F0UT2) 
C* CHANGE (8, TITLE=P0UT3) 
C* CHANGE (9/ TITLE=F0UT4' 

CHANGE (12, TITLE=FIDS'i*2) 
40 CHANGE (3, TITLE=FIDIN1) 
C* CHANGE (6, TITLE^FOUTl) 

CHANGE (11, TITLE=FIDST1) 
WRITE (5, 915) FIDINl, FIDIN2,FIDST1,FIDST2 
DO 50 1=1,4 
50 FILENM(I)=FIDIN1{I) 

READ (3,997) CONl , CON 2 
READ (3,997) C0N3 , C0N4 
READ (3,997) C0N5 , C0N6 
REWIND 3 ' 

C* 

C* SORT INPUT FIL^S) BY NON-CONTROL CONCEPT ID. AND THEN 

C* . WITHIN THAT BY tONTROL CONCEPT ID. 

CALL FILSRT(FIDrNl,FIDSTl) 

IF (FIDIN2 (1) .NE." ) CALL FILSRT (FIDIN2 ,FrDST2) 
Ml=M-6 

C* IF THERE ARE TWO INPUT FILES, SET KEY=1 

IF(FIDIN2 (1) .NE.** ")KEY=1 

C* 

C* FIRST INPUT FILE - CORRELATION OF RATINGS AGAINST PAIRS 

C* OF CONTROL CONCEPTS. 



C* 




C* 70 NUD=6 

70 REWIND 11 
REWIND 12 
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NI1=11 
NI2=11 

C* 

IP(NP.EQ.3) GO TO 300 
75 WRITE(10,908)DATE 

WRITE(10,*/) "WILCOXON MATCHED PAIRS TEST" 

WRITE(10,940)PILENM 
C* WRITB(NUD,906) PILENM . . 

80 WRITE (10, 970 )CONl,CON2',CON3,CON4, CONS, C0N6 

89 IP (NP.NE.3 .AND. KEY.LE.2) WRITE (10 , 911) 
IP (NP.NE.3 .AND. KEY.GT.2) WRITE (10 , 910) 
DO 105 P=1,M1 

G=(-3) 
H=(-4) 
IX=0 

C* 

C* READ IN CONCEPT NAME 

C* 

READ(NI1,920) (CONCNM(JJ) ,jj=l,15) 
BACKSPACE Nil 
. DO 100 J=l,5,2 

C* 

C* READ IN OSGOOD D VALUES 

C* 

READ(NI1,990) (A(I) ,I=1,N) 
READ (NI2, 990) (B(I) ,I=1,N) 

C* 

C* FOR DEBUGGING PURPOSES ONLY, PRINT ARRAYS A AND B FOR THE 

C* PIRST CORRELATION FOR EACH CONCEPT. ■ , 

C* 

C* IF(J.EQ.1.AND.F.LE.2)WRITE(15,'995)'(A(T) ,1=1,20) , (B(I) ,I?1,20) , 

Ct * (CONCNM(I) ,1=1,15) 

IP (KEY.LT.3.0R.NP.EQ.1) CALL MP (N, A,B , K,t;z ,P ,D,E ,L , IE, KA) 
IP (KEY.GE.3.AND,NP.EQ.2) CALL UTEST (Af^B ,N,KA,T ,Z ,P) 
IF (NP.NE.3) GO TO 90 

C* ' 

C* . PROCESS SPEARMAN RANK CORRELATION 

c* - ■ 

CALL CORR(A,B,N,RS,P) 

IX=IX+1 *■ 

SPE(IX)=RS 

GO TO 95 ■ ■ - . ' ' 

C* ' ■ 

90 IF (Z.GT.O) P=1.0 - P . 

P= P*2.0 „ ■ 

BB=SN(KA) " 

C* 

C* IF THE WILCOXON TESTS, ARE BEING DONE, GO TO 92 TO FIGURE THE SCALE 
C* 

IF (KEY.LE.2) GO TO 92 * . 

;f;=G+4 
S(G)=P 

S(G+1)=ABS(Z) 
S(G+2)=T 



S(G+3)=BB 
GO TO 95 
C* • 

COMPUTE SCALE, GO TO 93 IF CLOSER TO POSITIVE CONCEPT 
C- IP CLOSER TO NEGATIVE CONCEPT (BB=" + " OR = FIND VALUE AND 
C* GO INPUT INTO PRINT FILE (S2) . ^ 
C* 

92 H=H+5 
Q=50*ABS(Z)/CONV 
IF(BB.EQ."-")GO TO 93 
Q=50-Q 

GO Tab94 

C* 

C* FIGURE! VALUE IF CLOSER TO POSITIVE CONCEPT 
C* 

93 Q=50+Q 

C* 

C* ROUND VALUE AND TRUNCATE TO INTEGER. PUT EVERYTHING TO PRINTFILE 
- C* ■ ~ ■• ^' 

94 V=INT(Q+.5) 
S2(H)=P 

S2 (H+1)=ABS (Z) 
S2(H+2)=T 
S2(H+3)=BB 
S2(H+4)=V 

. C* 

95 IF (KEY.LT.3)G0 TO 100 
DO 97 I-1,N 

READ (NI1,990,END=100) 
97 , READ(NI2,990) 

100 ' ' CONTINUE 
■ C* . 

_ C* IF THE WILCOXON TEST IS BEING PRINTED, TIiE FIRST WRITE IS USED. 
"C* ' MANN-WHITNclY USES THE SECOND. 
C*' 

IF ;nP.NE.3 .and. KEY.LE.2) WRITE(10,981)F, (CONCNM(JJ) ,JJ=1,15) , 

* (S:i tLL) ,LL=1,15) 

IF (NP.NE.3 .AND. KEY.GT.2) WRITE (10 ,980) F, (CONCNM (JJ) , JJ=1 , 15) , 

* (S(LL) ,LL=1,12) 

IF (NP.EQ.3)WRITE(10,925)F, (CONCNM(JJ) ,JJ=1,15) , (SPE(LL) ,LL=1,3) 
C WRITE(NUD,904)F, (CONCNM(JJ) ,JJ-1,15) , (^'(LL) ,LL=1,12) 

105 CONTINUE 

IF (NP.NE.3)WRITE (10,950) 
IF (KEY.EQ.O)GO TO 120 
IF (NP.NE.3) GO TO 108 
IF(NP.E^Q.3.AND.KEY.EQ.3) GO TO 400" 

C* 

C* IF TEST WAS CORRELATION, RETURN FOR WILCOXON OR MANN-WHITNEY 

C* 

IF (ENDFLG.EQ.l) GO TO 120 
ENDFLG = 1 

WRITE (5,*/) "DO YOU NOW WANT EITHER THE TEST FOR MATCHED PAIRS OR I 
*NDEPENDENT GROUPS?" 
READ(5r985)ANS 



IF (ANS.EQ."NO")GO TO 120 

WRITE(5,*/) "ENTER 1 FOR MATCHED PAIRS OR 2 FOR INDEPENDENT .GROUPS" 
READ (5,/)NP 
WRITE(10,907) V 
KEY = 1 
GO TO 70 

I ^ 108 GO TO. U00,300,400,110)KEY 
110 CONTINUE 

IF (ENDFLG.EQ.l) GO TO 120 
ENDFLG=1 

WRITE (5,*/) "DO YOU NOW WANT A SPEARMAN RANK CORRELATION FOR THE 2 
* INPUT FILES?" 
READ(5,985) ANS 
IF (ANS.EQ."NO") GO TO 120 
N? = 3 
KEY = 1 
GO TO 300 
C* 120 CL0SE(6,DISP=CRUNCH) 
C* CL0SE(7,DISP=CRUNCH) 
C* CL0SE(8,DISP=CRUNCH) 
C* CL0SE(9,DISP=CRUNCH) 
120 ' CLOSE (11 , DISP=DELETE) 
CLOSE ( 12 , Dl'SP=DELETE) 
CLOSE (14 , DISP=CRUNCH) 
CLOSE ( 2 , DISP=CRUNCH) 
STOP 

C* 

C* 2 INPUT FILES - FIRST AGAINST SECOND COMPARISON 

C* /PROCESS SECOND FILE - EACH CONCEPT AGAINST CONTROL PAIRS 

C* 

200 KEY=KEY+1 

DO 210 1=1,4 
210 FILENM(I)=FIDIN2(I) 
C* NUD=7 

NI1=12 

NI2=12 

WRITE(10,907) 

C* 

C* IF MATCHED PAIRS TEST, SKIP TO 92 TO COMPUTE SCALE 
C* 

GO TO 75 

C* 

C* PROCESS FIRST AND SECOND FILES - EACH CONCEPT AGAINST POSITIVE 

C* CONTROL CONCEPTS - GOOD , STRONG , ACTIVE 

C* 

300 REWIND 11 
REWIND 12 
NIl-11 
rtl2-12 

IF(NP.EQ.3) KEY=KEY+1 
KEy=KEY+l 
C* NUD=8 

WRITE(10,907) 
WRITE(10,908)DATE 



ERIC 



IF (NP.EQ.l) WRITE ( 10,*/) "WILCOXON MATCHED PAIRS TEST" 
IF (NP.EQ.2) WRITE ( 10, */) "MANN-WHITNE/ INDEPENDENT GROUPS TEST" 
' IF(NP.EQ.3) WRITE (J.0,*/) "SPEARMAN RANK CORRELATION COEFFICIENT" 
WRITE(10,900) FIDIN1,FIDIN2 
C* WRITE(NUD,90€) FIDINl ,FIDIN2 
WRITE (10, 901) C0N1,C0N3, CONS 

GO TO 89 ' 

C* 

C* " PROCESS FIRST AND SECOND FILES - EACH CONCEPT AGAINST NEGATIVE 

C* CONTROL CONCEPTS - BAD, WEAK, PASSIVE 

C* 

400 KEY=KEy+l 
REWIND 11 
, REWIND 12 
C* NUD=9 

WRITE(10,907) 
WRITE(10,908)DATE 
DO 410 1 = 1, N 

READ(NI1,990) 
410 READ(NI2;990) 

IF (NP.EQ.l) WRITE ( 10,*/) "WILCOXON MATCHED PAIRS TEST" 
IF (NP.EQ.2) WRITE (10,*/) "MANN-WHITNEY INDEPENDENT GROUPS TEST" 
IF (NP.EQ.3) WRITE(10,*/)"SPEARMAN RANK CORRELATION COEFFICIENT" 
WRITE (10, 902) FIDIN1,FIDIN2 
C* WRITE (NUD ,906) FIDIN1,FIDIN2 

WRITE (10 , 903) C0N2 ,C0N4 ,C0N6 , 
GO TO 89 

900 FORMAT (IX, "ANALYSIS OF RESPONSES - POSITIVE - ",4A6," VS ",4A6///) 

901 FORMAT(36X,2A6,A3,19X,2A6,A3,19X,2A6,A3//) 

902 F0RMAT(1X, "ANALYSIS OF RESPONSES - NEGATIVE - " , 4A6 , " VS ",4A6///) 

903 FORMAT{36X,2A6,A3,19X,2A6,A3,19X,2A6,A3//) 

904 FORMAT(I3,1X,15A1,3(F7.5,F7.5,F4.0,1X, Al,lX )) 

905 FORMAT (/) 

906 FORMAT(4A6," VS ", 4A6) 

907 F0RMAT("1") 

908 FORMAT ( IX, 2A6) 

910 P0RMAT(5X, "CONCEPT", 10X,3(12X, "P" , 8X, "Z" , 5X, "T" , 2X, "SIGN" ) //) 

911 FORMAT (5X, "CONCEPT", lOX, 3 (7X,"P",8X,"Z", 6X,"T",2X, "SIGN", 2X,"SC") 
*//) 

915 FORMAT (IX, "YOUR FILES ARE .v " , 2 (4A6 , IX) /5X, 2 ( 5A6 , IX) /) 

916 FORMAT (F7. 5) 
920 F0RMAT(22X,15A1) 

925 F0RMAT(1X,I3,". " , 15A1 , 13X, F8 . 3 , 26X,F8 . 3 , 26X,F8 . 3) 

930 FORMAT(1X,"A(",I1,")=",F10.5,3X,"B(",I1,")=",F10.5) 

940 F0RMAT{1X, "ANALYSIS OF RESPONSES USING FILE, ",4A6///) 

950 FORMAT (///" NOTE A NEGATIVE SIGN MEANS THAT THE COMPARED CONCEPT 

-IS CLOSER TO THE FIRST OF THE TWO COMPARISON CONCEPTS."// 
p = PROBABILITY OF BRING LESS THAN (TWO-TAILED TEST)"// 

-" Z = STANDARD SCORE"//" T = SUM OF RANKS + OR - DIFFERENCES 

-WHICHEVER IS SMALLER") 
960 F0RMAT(2(I3,3X) ,7A1) 

970 FORMAT(28X,2A6,A3,"VS",2A6,A3,2X,2A6,A3,"VS" ,2A6,A3,2X,2A6, 

1A3,"VS",2A6,A3//) 
980 F0RMAT(1X,T3,". ",15A1, 9X, 3(F7.5,2X, F7 . 5 , 1X,F5 . 0 , 2X, Al, 9X )) 
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981 FORMAT (IX, 13,". 'M5A1 , IX, 3 (4X,F7 . 5 , 2X,F7 . 5 , 1X,F5 . 0 , 2X,Al , 2X, 1 3) ) 

985 FORMAT (A2) 

990 FORMAT (SX,F10. 5) 

995 FORMAT(4(1X,10F10.5,5X/) ,1X,15A1) . * 

997 fORMAT(2A6,A3,lX,2A6,A3) 
END 

SUBROUTINE NEWNAM (FILIN, FILOUT^FILAob, JIN,KIN) 

C* 

C* CREATE NEW FILE NAME BY APPENDING FILADD. 

C* 

DIMENSION FILIN(l) ,FIL0UT{1) 

C* 

C* FIND LAST ,NON-BLANK WORD OF FILIN "AND LOAD ALL NON-BLANK WORDS 

C* ' INTO FILOUT. 

C* 

IF(JIN.EQ.0)GO TO 90 
J=JIN 
, k=KIN 

DO 80 1=1, J 
80 PILOUT(I)=FTMN{I) 

GO TO 320 
90 DO 100 II =1,4,1 
I==5-I1 

100 1F(FILIN(I) ,NE." ")G0 TO 200 
200 DO 250 K=1,I 
250 FILOUT(K)=FILIN(K) 
C* WRITE(5,900) (FILIN(II) ,11=1,4) , (FILOUT(II) ,11=1,5) 

C* . ' 

C* APPEND FILADD TO FILOUT STARTING AT FIRST BLANK CHARACTER. 

C* 

DO 300 Jl =11,4,1 
J=5-J1 

DO 300 K=7,47,8 

IF((CONCAT(" ", FILOUT(J) ,47,K,8) ) .NE." ")G0 TO 310 
300 CONTINUE 
310 K=K-8 

IF(K.GE.7)G0 TO 315 
K=47 

J=J+1 t 
315 JIN=J 
KIN=K 

FILIN(J)=CONCAT(FILIN(J) , " . " ,K , 47 , 8 ) 
320 K2=47 
K1=K+1 

330 FILOUT (J) =CONCA.T (FILOUT (J) , FILADD, K,K2,K1) 
C* WRITE (5,900) (FILIN ( 1 1 ) , 1 1 = 1 ,4 ) , (FILOUT (I I) ,11 = 1,5) , FILADD 

K2^K2-K1 

IF(K2.LT.O) RETURN , . ? — 

K=47 
' K1=48-K1 
J=J+1 ■ 
GO TO .330 

900 F0RMAT(1X,"FILEIN IS ",4A6," FILEO, T IS ",5A6/1X, 
*"FILADD IS", A6) 



END 

SUBROUTINE MP (N/ A,B ,K 2 ,P , D,E /L, lE/KA) 

DIMENSION A(l) ,B(1) ,D(1) ,E(1) /L(l) - 

IE=0 

K=N 

C* FIND DIFFERENCES OF MATCHED PAIRS 

BIG=0.0 

DO 55 I=l/N 

DIF=A(I)-B(I) 

IF (DIF) 10, 20, 30 
C* DIFFERENCE HAS A NEGATIVE SIGN (-) 

10 L(I)=1 

GO TO 40^7-v^ y ■ ^ 

C* DIFFERENCE IS ZERO (0) 

20 L(I)=2 
■K=K-1 
GO TO 40 

C* DIFFERENCE HAS A POSITIVE SIGN(+) 

30 L(I)=3 
40 DIF=ABS (DIF) 

IF(BIG-DIF) 45, 50, 50 
45 BIG=DIF 
50 D(I)=DIF 
5 5 CONTINUE 

IF(K) 57,57,59 
57 TE=1 

T=0.0 

Z— ,4.31e68 
P=0 

GO TO 100 

C* STORE. A XARGE VALUE IN PLACE OF 0 DIFFERENCE IN ORDER TO 

C* ASSIGN A LARGE RANK (LARGER THAN K) , SO THAT ABSOLUTE VALUES 

C* OF SIGNED DIFFERENCES WILL BE PROPERLY RANKED 

59 BIG=BIG*2.0 

DO 65 .I=1,N ,^ 
IF(L(I)-2) 65, 60, 65 

60 D(I)»BIG 

65 CONTINUE ■ , ■ 

CALL RANK (D,E,N) 
C* FIND SUMS OF (+) DIFFERENCES AND (-) DIFFERENCES . 

SUMP=0.0 

SUMM=0.0 

DO 80 1=1, N 

IF(L(I)-2) 70,^80, 75 
70 SUMM=SUMM+E(I) 

GO TO 80 
75 SUMP=SUMP+E(I) 
80 CONTINUE 
C* SET 1 = SMALLER SUM 

IF(SUMP-SUMM) 85, 85, 90 
85 T=SOMP 

KA=1 

GO 'TO 95 
90 T-SUMM 
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. KA=2 

C* COMPUTE MEAN, STANDARD DEVIATION, AND 2 

95 FK=K ■ 

C* WRITE(15,97)T,FK,SUMM,SUMP, {L(I) ,I=1,N) , (D(I) ,I=1,N) , (E(I) ,I=1,N) 
> 97 FORMAT (IX, "T=" ,F4 . 1, 3X, "FK=" ,F4 . 0 , 3X , " SUMM=" ,F6 . 2 , 3X, "SUMP=" , 
^ *F6.2,3X,/1X, "L{li=", 15(11, 2X)/1X, "D (I ) =" , 15 (F8 . 3) , 3X/1X, 
*"E(I)= ", 15(F7.2)) 
U=FK*(FK+1.0)/4.0 

S=SQRT ( (FK* (FK+1 . 0) * ( 2 . 0*FK+1 . 0) ) /24 . 0) 
2=ABS((T-U)/S) ■ ' 

C* - COMPUTE THE PROBABILITY OF A VALUE AS EXTREME AS 2 

C* WRITE{2,*/)U,S,2 

98 FORMAT{1X,"U=",F10.5,3X,"S=",F10.5,3X,"2=",F10.5) 
CALL NDTR (2,P,BIG) 
100 RETURN 
END 

SUBROUTINE NDTR(X,P,D) 
X* " 

. C* , SUBROUTINE NDTR 

C* _^ ' ' . 

C* PURPOSE 

C* COMPUTES Y=P(X)=PROBABILITY THAT THE RANDOM VARIABLE U, . 

C* DISTRIBUTED NORMALLY (0,1), IS LESS THAN OR EQUAL TO X. 

C* F(X) , THE ORDINATE OF THE NORMAL DENSITY AT X, IS ALSO 

C* COMPUTED. ■ 
C* 

C* USAGE 

C* CALL NDTR(X,P,D) ■ i 

C* . ■ ' I 

C* DESCRIPTION OF PARAMETERS 

'"C* • X— INPUT SCALAR FOR WHICH P (X) IS COMPUTED 

C* P — OUTPUT PROBABILITY. i 

C* D — OUTPUT DENSITY \ 
r C* j 

C* REMARKS ! 

C* MAXIMUM ERROR IS 0.0000007. , I 

C* ■ i 

C* METHOD V . 'I 

C* BASED ON APPROXIMATIONS IN C. HASTINGS,' APPROXIMATIONS FOR I 

C* DIGITAL COMPUTERS, PRINCETON U. PRESS, 1955. SEE EQUATION j 

C* 26.2.17, HANDBOOK OF MATHEMATICAL FUNCTIONS, ABR0M0WIT2 & I 

C* STEGUN, DOVER. . ( 
C* 

C* 1 

C* I 

c* I 

AX=ABS(X) . I 

T=1.0/(1.0+. 2316419*AX) ! 

D=rO. 3989423*EXP(-X*X/2.0) ! 
P=1.0-D*T*(( ((1.330274*T-1. 821256) *T+1 . 781478) *T- 

1 0.3565638) *T+0 . 3193815) j 
C* WRITE(2,*/) X,AX,T,D,P 

IF(X)1,2,2 j 

Er|c -44- • 
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1 

2 



C* 
C* 
C* 
C* 
C* 
C* 
"'C* 

c* 
c* 
c* 

-c* 
c* 

■ c* 
c* 
c* 
c* 
c* 
c*' 



c* 
c* 



X* 

c* 
c* 

c* 
c* 
c* 

c* 
c* 
c* 



c* 
c* 
c* 



c* 
c* 
c* 



P-I.O-P 
RETURN 
END ■ 

RANK A VECTOR OF VALUES 
USAGE 

CALL RANK(A,R,N) 
DESCRIPTION OF PARAMETERS ' 

A - INPUT VECTOR OF N VALUES 

R - OUTPUT VECTOR OF LENGTH N. SMALLEST VALUE IS RANKED 1, 
LARGEST IS RANKED N. TIES KRE ASSIGNED AVERAGE OF TIED 
RANKS' ' * ■ . * 

. N - .NUMBER OF VALUES 
REMARKS 
NONE 

SUBROUTINES AND FUNC??ION SUBPROGRAMS REQUIRED 
/NONE 

METHOD • ■ . ^ 

^. VECTOR IS SEARCHED FOR SUCCESSIVELY fcARGM ELEMENTS. IF TIES 
.OCCUR, THEY ARE? LOCATED ANt) THEIR RANK Va£dE--COMPUTED. 



10 



FOR EXAMPM:, if 2 VALUES ARE TIED FOR SIXTH RANK, 
ASSIGNED A RANK OF' 6.5 -(=(6+7)/2) 
SUBROUTINE RANK(A,R,N) 
DIMENSION A(1),R(1000) 

INITIALIZATION 
DO 10 1=1, N 
R(I)=0.0 

FIND RANK OF DATA > ^ - 



THEY ARE 



DO 100 1=1, N 

TEST WHETHER 
IF(R(I)) 20, 20, 



DATA POINT IS ALREADY RANKED 
100 



20 



DATA POINT TO BE RANKED 



SMALL=0.0 
EQUAL=0 .0 
X=tA(I) 
DO 50 J*1,n' 
IF(A(J)-X) 30, 40, 
COUNT NUMBER OF 



50 

DATA POINTS WHICH ARE SMALLER 



30 



40 



50 
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SMALL=SMALL+1.0 
GO TO 50 

COUNT NUMBER OF DATA POINTS WHICH ARE EQUAL 

EQUAL=EQUAL+1.0 

R(J)=-1.0 
CONTINUE 



-45- 
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c* 

C* TEST FOR TIE 

C* 

IF(EQUAL-l.O) 60, 60, 70 

C* ' ' 

C* STORE RANK OF DATA POINT WHERE NO TIE . 

C* 

60'R(I)=SMALL+1.0 
60 TO 100 

C* ■ . ' 

C* . CALCULATE RANK OF TIED DATA POINTS ' 

C* ' ' • ' 

70 P=SMALL + {EQUAL + 1.0)*0.5 
DO 90 J=I,N 

IF(R{J)+1.0) 90, 80, 90 
80 R(J)=P 
9 0 CONTINUE 
100 CONTINUE 

RETURN 

END 

SUBROUTINE UTEST (A ,B ;n, SIGN ,T, Z ^P) 
DIMENSION A{1) ,3(1) ,C(1000) ,R(1000) 
C* . - , • 

Q*******************************************ii** ********* 



C* RANK SCORES 'FROM BOTH GROUP TOGETHER IN ASCENDING -ORDER AND 

C* ASSIGN TIED OBVERVATIONS AVERAGE OF TIED RANKS 

C* 

C* DESCRIPTION OF PARAMETERS! 

■ C* A - INPUT VECTOR FROM FIRST FILE 

.C* B - INPUT VECTOR FF.jM SECOND FILE 

C* ' C - A CONCATINATED WITH B. USED FOR RANKING 

C* N - LENGTH OF VECTORS A AND B 

C* T - SUM OF SMALLER OF RANKS OF A AND B (OUTPUT) 

C* ■ . P - PROBABILITY FROM SUBROUTINE NDTR 

C* R - OUTPUT VECTOR OF RANKS. SMALLEST VALUE IS RANKED If 

C* LARGEST IS RANKED N. TIES ARE ASSIGNED AVERAGE OF TIED 

C* RAIJKS. 

C* SIGN STATISTIC USED TO TEST HOMOGENEITY OF THE TWO GROUPS 

C* (OUTPUT) . 

C* . Z - MEASURE OF SIGNIGICANCE OF U IN TERMS OF NORMAL DIS- 

C* ' TRIBUTION (OUTPUT) . 

C* 

C* REMARKS! 

C* Z is SET TO ZERO IF N2 IS LESS THAN 20. 

C* • , 

C* SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED! 

C* RANK 

C* TIE 

C* 

C* 

C* METHOD! J 

C* DESCRIBED IN S. SIEfeEL, "nONPARAMETRIC STATISTICS FOR 

■ C* FOR THE BEHAVIORAL SCIENCES" r MCGRAW-HILL, NEW YORK, 1956, 

C* CHAPTER 6. 

O 




c* . . , 

Q* ************************************* 

c* ■ ' 

C* CONCATINATE VECTORS A AND B INTO C' ; 
C* 

DO 10 1=1, N ^ ' 

10 C(I)=A(I) 

^.N2=N*2 ' 
DO 20 I=N+1,N2 

X=I-N , ' : . 

. C(I)=B(X) 

20 CONTINUE ^ 

C* 

C* RANK C 

C* 

CALL RANK{C,R,N2) 
C* WRITE(2,*/) (C(I) ,R(I) ,I = 1,N2) 

* Z=0 

C* 

C* ' SUM- RANKS IN 'a' GROUP 
C* 

RA=0 

DO 30 1=1, N 
30 RA=RA+R(I) 

C* 

C* SUM RANKS IN 'B' GROUP 

C* 

RB=0 • / ' 

DO 40 I-N+1,N2 
40 RB=RB+R(I) 

C* 

C* R2 EQUALS TOTAL SUMMATION OF THE RANK 

C* 

R2=:RA+RB 
C* WRITE(2,*/)RA,RB,R2 
C* 

C* . CALCULATE U 
C* 

PNX=N**2 
PN«N2 
PN2=N 

UP=PNX+FN2* ( (PN2+l)/2)-RB 
U=FNX-UP* 
- IF(UP-U)50, 60, 70 
50 U=UP 

C* o 
C* TEST POR N2 LESS THAN 20 

C* 

60 IP{N2-20)110, 70, 70 

C* 

C* COMPUTE STANDARD DEVIATION 

C* 

70 KT=1 

CALL TIE (R,N2,KT,TS) 
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IP (TS) 80, 90, 80 
80 S=SQRT( (FNX/(PN*(FN-1) ) ) *( ( (FN*PN*PN-FN)/12.0)-TS) ) 
GO TO 100 

90 S=SQRT(PNX*(PN+1)/12.0) ^ 
C* ' - 

C* COMPUTE Z 

C* 

100 Z=(U-PNX*0,5)/S 
110 CALL NDTR(Z,P,BIG) 

C* 

C* CO^iPARE RANKS OP A AND B 

C* 

IP (RA-RB) 130, 140,150 

C* 

C* IP RB IS LARGER THAN RA 

C* . 

130 SIGN=1 '> 
T=RA 

GO TO 160 

C* 

C* IF THE SUfJMATIONS ARE EQUAL 

140 SIGN=3 , 
T=RA 

GO TO 160 

C* 

C* IP RA IS LARGER 'THAN RB 

C* 

150 SIGN=2 

T=RB 
160. RETURN 
END 

SUBROUTINE TIE (■R/N,KT,T) 

C* 



C* SUBROUTINE TIE 
C* 

C* PURPOSE 

C* CALCULATE CORRECTION PACTOR DUE TO TIES 
C* 

C*- USAGE ' 

C* CALL TIE (R,N,KT,T) 
C* 

C* DESCRIPTION OP PARAMETERS 

C* R - INPUT VECTOR OF RANKS OP LENGTH N CONTAINING VALUES 

C* 1 TO N 

C* N - NUMBER OF RANKED VALUES 

C* KT - INPUT CODE POR CALCULATION OP CORRECTION FACTOR 

C* 1 SOLVE EQUATION 1 

C*- . 2 SOLVE EQUATION 2 

C* T - CORRECTION FACTOR (OUTPUT) 

C* EQUATION 1 T=SUM(CT**3-CT)/12 

C* EQUATION 2 T=SUM (CT* (CT-1) /2) 

C* WHERE CT IS THE NUMBER OP OBSERVATIONS TIED POR A 

C* GIVEN RANK 



C* REMARKS 
C* NONE, 
C* 

C* SUBROUTINES AND FJJtJCTION SUBPROGRAMS REQUIRED 
C* ■ NONE 

C* 

C* METHOD 

C* VECTOR IS SEARCHED FOR SUCCESSIVELY LARGER RANKS. TIES ARE ■ 

C* COUNTED AND CORRECTION if'ACTOR 1 OR 2 SUMMED. 

C* V ' . . ' 

Q**** **** ***** Ic**^** ***** ** It* **** ******* Iclc'kltltlclclclclclclclclclclclclclclcic ****** 

c* . ' 

DIMENSION R(l) 

c* 

C* INITIALIZATION 
C* 

T=0.0 
Y=0.0 
5 X=L.0E38 ■ 
IND=0' 

C* 

C* FIND NEXT LARGEST RANK 

C* 

DO 30 1=1, N 

IF(R(I)-Y) 30,30,10 
10 IF(R(I)-X) 20,30 ,30 
20 X-R(I) 

IND=IND+1 
30 CONTINUE 
■ C* ' 

C* IF ALL RANKS HAVE BEEN TESTED, RETURN 

C* 

IF(IND) 90,90,40 
40 Y=«X 
CT'O. 0 
C* . 
C* COUNT TIES 

C* 

DO 60 1=1, N 

IF(R(I)-X) 60,50,60 
50 CT=CT+1.0 
60 CONTINUE 

C* 

C* CALCULATE CORRECTION FACTOR 

C* ' 

IF(CT) 70,5,70 
70 IF(KT-l) 75,80,75 
75 T=T+CT*{CT-l.)/2.0 

GO TO 5 
80 T=T+(CT*CT*CT-CT)/12.0 

GO TO 5 
90 CONTINUE 

RETURN 

END 
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■ SUBROUTINE DATIT(DATE) 
REAL DATE (2) 
DATE(1)=' / 
DATE (2)=' 
B=TIME(15) 

DATE ( 1) =CONC AT (DATE (1) ^B, 47, 47, 16) 
DATE (1)=C0NCAT (DATE (1) ^B, 23, 31, 16) 
DATE (2) =CONCAT (DATE ( 2) ,B, 47 , 15 , 16) 
RETURN 
END 

SUBROUTINE CORR (A,B ,N , RS , F) 

c* 

C* ; * 

C* SUBROUTINE CORR _^ * 

C* ' * 

C* ' * 

■C* PURPOSE - TO COMPUTE THE SPEARMAN RANK CORRELATION COEFFICIENT * 

C* FROM THE OSGOOD DEES CALCULATED BY THE PROGRAI-I * 

C* STAT/OSGOOD. E PROGRAM, SEMDIF. * * 

C*- ^ USAGE - CALL CORR(A,B,M,RS) ^\ * 

c* dbscript;[on of parameters * 

C* A - INPUT VECTOR OF M OBSERVATIONS FOR FIRST VARIABLE * 

C* ■ B - INPUT VECTOR OF M OBSERVATIONS FOR SECOND VARIABLE * 

<C* N - NUMBER OF CASES * 

C* ■ ^RS - SPEARMAN RANK CORRELATION COEFFICIENT * 

C* THE SUBROUTINE USES THE IBM SUBROUTINES RANK, TIE,. AND SRANK. * 

C* - * 

C* * 

C* 



C* 
C* 



DIMENSION A(l) ,B(1),R(1000) 
NR^O . 



C*. 

C* . CALL SRANK AND PRINT OUTPUT 

C* 

CALL SRANK (A,B ,R,N ,RS ,T,NDF ,NR,F) 

RETURN 

END 

SUBROUTINE SRANK (A,B , R,N , RS ,T ,NDF ,NR,F) 

********************************** ******** 

C* 

C* SUBROUTINE SRANK 
C* , 

C* PURPOSE 

C* TEST CORRELATION BETWEEN TWO VARIABLES BY MEANS OF SPEARMAN 

C* RANK CORRELATION COEFFICIENT 

C* 

C* USAGE 

C* CALL SRANK(A,B,R,N,RS,T,NDF,NR) 

C* 

C* DESCRIPTION OF PARAMETERS 
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-50- 

52 



C* A - INPUT VECTOR OF N OBSERVATIONS FOR FIRST VARIABLE 

C* . B - INPUT VECTOR OF N OBSERVATIONS FOR SECOND VARIABLE 

C* R - OUTPUT VECTOR FOR RANKED DATA, LENGTH IS 2*N. SMALLEST 

C* OBSERVATION IS RANKED 1, LARGEST IS RANKED N. TIES 

C* ARE ASSIGNED AVERAGE OF TIED RANK&. 

C* N - NUMBER OF OBSERVATIONS 

C* RS - SPEARMAN RANK CORRELATION COEFFICIENT (OUTPUT) 

C* T - TEST OF SIGNIFICANCE OF RS (OUTPUT) 

C* NDF - NUMBER OP DEGREES OF FREEDOM (OUTPUT) 

C* NR - CODE, 0 FOR UNRANKED DATA IN A AND B, 1 FOR RANKED 

C* DATA IN A AND B (INPUT) 

C* ' 

C* REMARKS 

C* T IS SET TO ZERp IF N IS LESS THAN TEN 
C* 

c* '/Subroutines '"AND function subprograms required 

C* ( RANK 

C* \ TIE 
C* 

C* IteTHOD 

C* ^-©^SCRIBED IN S. SIEGEL, "NONPARAMETRIC STATISTICS FOR THE 

C* BEHAVIORAL SCJENCES" , MCGRAW-HILL, NEW YORK, 1956, 

C* CHAPTER 9 

C* ********* ************************************* ******** 

c* 

DIMENSION Ad) ,B (1) ,R(1) 

C* 

FN^FLOAT (N) 
FNNN=(FN**3)-FN 

C* 

C* DETERMINE WHETHER DATA IS RANKED 

C* 

IF(NR-l) 5, 10, 5 

C* 

C* RANK DATA IN A AND B VECTORS AND ASSIGN TIED OBSERVATIONS 

C* AVERAGE OF TIED RANKS 

C* ■ 

NS=0 

5 CALL RRANK (A,R,N,RS,T,NDF,NS) 
NS=N 

CALL RRANK (B,R,N ,RS , T ,NDF , NS) 
GO TO 40 . 

C* 

C* MOVE RANKED DATA TO R VECTOR 

C* 

10 DO 20 1=1, N 
20 R(I)=A(I) 
DO 30 1 = 1, N 
J=I+N 
.30 R(J)=B(I) 

C* 

C* COMPUTE SUM OF SQUARES OF RANK DIFFERENCES ' 

C* 

40 D=0.0 



DO 50 4=1, N 
J=I+N''* 

50 D=D+(R(I)-R(J))*(R(I)-R(J)) 

C* 

C* COMPUTE TIED SCORE INDEX 

C* ^- , . 

KT=1 . 
NS=0 

CALL TTIE (R,N,KT,TSA,NS) 
NS=N 

CALL TTIE (R,N,KT,TSB,NS) 

C* 

C* ' COMPUTE SPEARMAN RANK CORRELATION COEFFICIENT 

C* . ' > » ■ 

; IP(TSA) 60,5b,60 

55 IP(TSB) 60,57,60 ' . 

57 RS=1.0-6.0*D/PNNN 
GO TO 70 

60 X=FNNN/12 . 0-TSA - ^■ 

y=X+TSA-TSB J " • 

RS= (Xty-D)/{2.0* (SQRT(X*y) ) )- 

c* ■ • 

C* COMPOTE T AND DEGREES OF 'FREEDOM IP N IS 10 OR LARGER 

C* 

T=0.0 ' 
.70 IP(N-IO) 80,75;75 ^ ' 

75 CONTINUE 

T=RS*S9Rr*(PL0AT (N-2) / ( 1 . 0-RS*RS ) ) 
80 NDP=N-":2 , ' , ' 

C* IP (P.EQ.l)CALL DEBUG{A,B,R,N,RS,T,PNNN,X,y,D,TSA,TSB) 

'RETURN 
' . END 

SUBROUTINE DEBUG {A,B ,R ,N, RS /T,PNNN , X,y,D,TSA,TSB) 

DIMENSION A{1) ,8(1) ,R(1) 

DO 100 I = 1,N 
100 WRITE (14,900 ) A(I) ,B(I) ,R(lf,R(I+N) 

WRITE (14,*//)N,RS,T,FNNN,X,*y,D,TSA,TSB 

RETURN 
900 FORMAT {4P12. 8) 

END 

SUBROUTINE TTIE (R ,N ,KT ,T,NS) 

' C* » ' i 

Q** ************ ***************** 

• C* SUBROUTINE TIE 
C* 

C* PURPOSE 

C* CALCULATE CORRECTION P'CTOR DUE TO TIbi 

C* 

C* USAGE ' 

C* • CALL TIE(R,N,KT,T) 
- C* 

C* DESCRIPTION OF- PARAMETERS 

C* R - INPUT VECTOR OP RANKS OF LENGTH JI CONTAINING VALUES 

C* 1 TO N 



C* N - NUMBER OF RANKED VALUES 

C* . KT - INPUT CODE FOR CALCULATION OF CORRECTION FACTOR 

C* 1 SOLVE EQUATION 1 

C* 2 SOLVE EQUATION ^ 

C* T - CORRECTION FACTOR (OUTPUT) 

C* EQUATION 1 T=SUM(CT**3-CT)/12 

C* EQUATION 2 - T=SUM (CT* (CT-1) /2) 

C* WHERE CT IS THE NUMBER OF OBSERVATIONS TIED FOR A 

C* GIVEN RANK 

C* REMARKS 

C* NONE 

C* 

C* SUBROUTINES AND FUNCTION SUBPROGRAMS .REQUIRED 

C~* NONE 

C* 

C* . METHOD 

C* VECTOR IS SEARCHED FOR SUCCESSIVELY LARGER RANKS. TIES ARE 

C*' COUNTED AND CORRECTION FACTOR T OR 2 SUMMED. 

C* 

C* 

DIMENSION R(l) 

C* 

C* INITIALIZATION 
C* 

T=0.0 
Y=0 . 0 
5 X=1.0E38 
1ND=0 

C* 

C* FItJD NEXT LARGEST RANK 

C* ( 

DO 30 1=1, N 
IF(R(NS+I)-Y) 30,30,10 
. 10 I5'(R(NS+I)-X) 20,30,30 
20 X=R(NS+I) 

tnd=i-:d+1, 

30 CONTIN"^ .J 

C* 

C* IF ALL RANKS VE BEEN TESTED, RETURN 

C* * " , 

IF(IND) 90,90,40 
40 Y=X 
CT=0 .0 



C* 
C* 
C* 



C*' COUNT TIES 



DO 60 1 = 1, N 
IF(R(NS+I)-X) 60,50,60 
5 J CT=CT+1.0 
60 CONTINUE -/ 
C* IF (F.EQ.lT WRITfi(14,*//)CT,X,T 

C* 

C* CALCULATE CORREC 'ION FACTOR 



c* 

IF(CT) 70,5,70 
70 IF(KT-l) 75,80,75 
75 T=T+CT*(CT-l.)/2.0 

GO TO 5 
80 T=T+(CT*CT*CT-CT)/12.0 

GO TO 5 
90 CONTINUE 

RETURN . 

END 

SUBROUTINE RRANK ( A , R , N , RS , T , ND? , NS) 
C* ■ 

*********************** *A ************* 



C* RANK A VECTOR OF VALUES 

C*. USAGE 

C* CALL RANK(A,R,N) 

C* DESCRIPTION OF PARAMETERS^ 

C* "a - INPUT VECTOR OF N VALUES 

■" C* R - OUTPUT VECTOR OF LENGTH N. SMALLEST VALJE IS RANKED 1, 
LARGEST IS RANKED N. TIES ARE ASSIGNED AVERAGE OF TIED 

C* RANKS 

C* N - NUMBER OF VALUES 

C* REMARKS 

C* NONE 

C* SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 

C* NONE 

C* METHOD 

C* VECTOR IS SEARCHED FOR SUCCESSIVELY LARGER ELEMENTS. IF TIES 

C* OCCUR, THEY ARE LOCATED AND THEIR RANK VALUE COMPUTED. 

C* FOR EXAMPLE, IF 2 VALUES ARE TIED FOR SIXTH RANK, THEY ARE 

C* ASSIGNED A RANK OF 6.5 (=(6+7)/2) 



(?******************************************************************* 

C* ? 
DIMENSION A(l) ,R(1) 

C* 

C* • INITIALIZATION 

DO 10 1 = 1, N 
10 R(NS+I)=0,0 

' C* 

C* FIND RANK OF DATA 

C* 

"^DO 100 1 = 1, N 

C* 

C* T3ST WHETHER DATA POINT IS ALREADY RANKED 

C* 

IF(R(NS+I)) 20, 20, 100 

C* 

C* DATA POINT TO BE RANKED 

C* . t , 

'20 SMALL=0.0"' . 

EQUAL=0.0 > 

X=A(L) 

DO 50 J=1,N 

IF(A(J)-X) 30, 40, 50 
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C*. COUNT NUMBER OF DATA POINTS WHICH ARE SMALt.BR 

C* . 
C* 

30 SMALL=SMALL+1.0 
GO TO 50 

C* 

C* COUNT NUMBER OF DATA POINTS WHICH ARE EQUAL 

C* ' • ^ 

40 EQUAL=EQUAL+i,0 
R(NS+J)=-1,0 
^0 CONTINUE "v. 

TEST FOR TIE 

IF(EQUAL-l.O) 60, 60, 70 

STORE RANK OF DATA POINT WHERE NO TIE 

60 R(NS+I)pSMALL-fcl.O 
GO TO iOOj 

CALCULATE RANK OF TIED DATA POINTS 

70 P=SMALL + (EQUAL + 1 . (I) *0 . 5 
DO 90 J=I,N 

IF(R(NS+J)+1.0) 90, 80r 90 
80 R(NS+J)=P 
90 CONTINUE 
100 CONTINUE 

RETURN 

END 

SUBROUTINE TABLE 

****************************** ****** 

c* * 
c* * 

C* SUBROUTINE TABLE * 
C* * 

C* PURPOSE - THIS SUBROUTINE WRITES THE TABLE OF * 

C* CONVERSION FACTORS THAT THE USER CAN * 

C* CHOOSE FROM WHEN RUNNING SIGTEST. * 

C* * 

Q************************* ****************************************** 

DIMENSION FACTOR (10) 

DATA FACT0V3. 4077, 3. 9199 3, 4. 37237, 4. 78214, 5. 15943, 5. 51093, 
*5. 84131, 6. 1^501,0,0/ 
C* WRIIE THE HEADING 

WRITE(5,99) 
WRITE(5,100) 
WRITE(5,101) 
WRITE(5,102) 
C* WRITE THE BODY OF THE TABLE 

J=^0 

DO 10 1=15,50,5 
J=J+1 

ER|c -55- 
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c* 



c* 



WRITE (5,110)1; FACTOR { J ) 
1.0 COKTIHUE 

WRITS(5,S9j 



99 FORMAT CO ") 

100 FORMATC'O TABLE! OF CONVSRSION FACTORS ") 

■5101 FORMATC'O NO. OF CASES FACTOR**) 

102 FORMATf 

110 F0RMAT(IX,8X,I2,19X,P7.5) - 
RETURN 
END 




r 
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#FILE (LAWSONTWO)STAT/SEMDIF/SORT ON PACK 

50 $SET$LIST$LEVEL 3 

100 IDENTIFICATION DIVISION. 

200 PROGRAM-ID. FILSRT. 

300 *REMARKS. GENERAL OUTLINE OF SORT '. B. METIVIER. 

400 ENVIRONMENT DIVISION. 

500 CONFIGURATION SECTION. 

600 INPUT-OUTPUT SECTION. 

700 FILE-CONTROL. 

800 SELECT DISKIN ASSIGN TO 

' 900 000020* 001200 " 

1000 DISK 
1100 

■ 1200 ' SELECT DISKOUT ASSIGN TO 

1300 000020* 001200 

1400 DISK 
1500 

1600 SELECT SORTF ASSIGN TO SORT DISK. 

. 1700 DATA DIVISION. 

1800 FILE SECTION. 

1900 FD DISKIN 

SOOO' BLOCK CONTAINS 60 RECORDS 

2300 VA OF ID IN-FILE . 

2600 01 IN-9EC> 

2700 02 FIL PIC X OCCURS 42.- 

3000 SD SORTF. 

3100 01 S-REC. 

3111 02 FIELD02 PIC X(0003). 

3112 02 FIELDOl PIC X(0003). 
3120 02 FIELD03 PIC X(0003). 
3140 , 02 FILLER PIC X(0033). 
3200 FD DISKOUT 

3300 BLOCK CONTAINS 60 RECORDS 

3600 VA OF ID OUT-FILE SAVE-FACTOR 001. 

3900 01 D-REC. 

3950 ' 02 FIL PIC X OCCURS 42. 

4200 WORKING- STORAGE SECTION. 

4230 01 IDIN COMP WITH LOWER-BOUNDS. 

4240 02 DUMDUM PIC 9(11) OCCURS 4. 

4250 01 IN-FILE REDEFINES IDIN PIC X{24) . 

4260 01 IDQUT COMP WITH LOWER-BOUNDS. 

4270 02 DUMDAT PIC 9(11) OCCURS 5. 

4280 01 OUT-FILE REDEFINES IDOUT PIC X(30). 

4300 PROCEDURE DIVISION USING IDIN, IDOUT. 

4400 START-START SECTION. 

4500 SORT-PAR. 

4700 SORT SORTF ON 

4711 ASCENDING KEY FIELDOl 

4712 ASCENDING KEY FIELD02, FIELD03 
4800 USING DISKIN 

4900 GIVING DISKOUT. 

4950 EXIT PROCEDURE. 
# ■■ 
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$SET LIST 

FILE 5 (KIND=''REMOTE'' ^MYUSE--'" 10" ) 

FILE 6 {FILE='' PLOT/PRT . " ^KIND^" PRINTER" ) 

FILE 7 (FILE=" PLOT/INPUT. " ,KIND="DISK" ,FILETYPE=7) 

C* 

C* ' ' * 

C* * 

C* PROGRAM: STAT/SEMDIF/PLOT . * 

C* ' . * 

C* PURPOSE: THIS PROGRAM PLOTS THE E,P,A VALUES FOR THE * 

C* MEANS DOUBLED AS CALCULATED BY THE PROGRAM STAT/ * 

C* SEMDIF. ' ■ . * 

C* * 

C* PROCEDURE: THE INPUT FILE FOR THIS PROGRAM IS FORMED , * 

C* BY RUNNING STAT/SEMDIF AND USING THE RESULTING * 

C* FILE WITH A SUFFIX OF "/OUTPUT" AS AS INPUT FILE. * 

C* . ^ THE FORMAT OF THE INPUV FILE IS AS FOLLOWS: * 

C* 1 1-3 NUMBER OF CONCEPTS * 

C* 2 1-3 CONCEPT IDENT NUMBER • * 

C* 4-10 MEAN OF E * 

* 

C* 3 - (N+I) SAME AS RECORD 2 - ONE FOR * 

* 

C* ■ 4-10 STAND. ERROR OF MEAN OF E * 

C* 11-18 " " . " " " P * 

C* 19-25 " .« !• M _ ^ * 

C* " {N+3) - 2*N+1 SAME AS RECORD N+2 - ONE FOR * 

C* EACH CONCEPT * 

C* (2*N)+2 - END 1-90 OSGOOD DEE VALUES FOR CONCEPTS ^ 

C* * 

C* THIS PROGRAM USES RECORDS i-N+1 

C* * 

C* SINCE THE FIRST SET OF DATA IN THE FILE IS JUST THE MEANS * 

C* AND NOT TKE MEANS DOUBLED, THE E,P,A VALUES ARE READ INTO * 

C* ARRAYS "E" /'P" ,AND- "A" AND ARE THEN DOUBLED. ^ * 
C* 



C* , 11-18 MEAN OF P 

C* 19-25 MEAN OF A 

C* 26-30 SPACE 

C* . 31-41 CONCEPT NAME - ALPHA 

C* 3 - (N+I) SAME AS RECOI 

C* EACH CONCEPT 

C* (N+2) 1-3 CONCEPT IDENT NUMBER 



C* WHEN PLOTTING A SET OF E,P,A VALUES, THE "P" VALUE * 

C* 'is plotted on the horizontal axis, . THE "E" VALUE IS * 

C* PLOTTED ON THE VERTICAL AXIS, AND THE POINT ITSELF IS * 

C* CODED ALPHABETICALLY ACCORDING TO WHAT THE "A" VALUE IS * 

C* (THE TABLE OF VALUES FOR THE "A" IS PRODUCED BELOW THE * 

C* GRAPH ITSELF) . THE SUBROUTINE "AVAR" CONVERTS THE "A" * 

C* TO ITS PROPER CODE. THE SUBROUTINE "CODE" PRINTS OUT THE * 

C* TABLE OF VALUES FOR THE "A" VARIABLE. * 

C* ' ' • * ! 

C* THE GRAPH IS SCALED AS FOLLOWS: * I 

C* HORIZONTAL AXIS - EACH "-" IS 1/6 OF 1 * 

C* VERTICAL AXIS - EACH "1" IS 1/5 OF 1 * 

C* EACH AXIS IS SCALED FROM "1" TO "14" * 



f 



c* * 

C* WHEN THE GRAPH IS SENT TO THE PRINTER, THE ACTUAL E,P,A * 

C* VALUE ALONG WITH THE CORRESPONDING CONCEPT NAME ARE PRINTED * 

C* ON THE RIGHT-HAND SIDE OF THE AXIS. ■ * 

C* * 

C* ■ ' * 

C* WRITTEN BY MARCY L. METIVIER FOR E.D.LAWSON AT THE * 

C* STATE UNIVERSITY COLLEGE OF NEW YORK AT FREDONIAr * 

C* NEW YORK 14063. COMPLETED AUGUSTr 1983. * 

C* ' * 



Q* ******************************************************************** 

C* 

c* 

CHARACTER*1 AXIS(70,84), KEYr ALPHA(13), TITLE*27r CONCNM(109) *15 
DIMENSION E(109)r P(109)r A(109) 
INTEGER XAXIS, YAXIS, SCALE(14) 

DATA ALPHA/"A","B%"C"r"D"/'E'\"F","G","H","l","J","K","L'","MV 

C* 

C* INITIALIZE AXIS TO CONTAIN ALL BLANKS 

C* 

DO 20 1=1,70 

DO 20 J=l,84 V. 
AXlS(IrJ)=" " 
CONCNM(J)=" " 
20 CONTINUE 

C* 

WRITE(5r*) "ENTER NAME- OF INPUT FILE. NO MORE THAN 27 CHARACTERS^ 
*PLEASE. (MUST BE A /OUTPUT FILE...)" 
READ(5,900)TITLE 

C* 

IF (TITLE (27 :) .NE." ") THEN 
TITLE(27:)="." 
GO TO 90 

ELSE 

DO 50 I=22rlr-1 
50 IF (TITLE(I:I) .NE."- ") GO TO 60 

60 1=1+1 

TITLE(I:I)="." 
END IF 

C* 

C* WRITE FILENAME ON PRINTOUT 

C* 

WRITE(6r960)TITLE 

C* 

C* OPEN INPUT FILE 

C* 

90 0PEN(7,FILE=TITLE) 
READ(7r905)N 

C* ■ 

C* READ IN MEANS E,PrA VALUES AND DOUBLE THEM 

C* 

DO 100 I=lrN 

READ(7r910)E(I) ,P(I) ,A(I) rCONCNM(I) 
E(I)=E(I)*2 
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P(I)=P.{I)*2 
A(I)=A(I)*2 
XAXIS=NINT( (P(I)-1)*6) 
YAXIS=NINT( (E(I)-1)*5) 

C* 

C* FIND CORRECT "CODE" FOR THE A VALUE AND "PLOT" IT 

C* ON THE "GRAPH", 

C* 

CALL AVAR(A(I) , KEY, ALPHA) 

AXIS'(YAXIS,XAXIS)=KEY 
■ 100 CONTINUE 
C* 

C* PRINT "GRAPH" 

C* 

L=0 
K=66 

C* .... 
do' 200 1 = 14,2,-1 *^ 
L=L+1 

K=K-1 ^ . 

C* WRITE ACTUAL E,P,A VALUES UNTIL THERE ARE NO MORE 

IF (L.LE.N) THEN 

WRITE(6, 920)1, (AXIS(K,J) ,Js2,84) ,E(L) ,P(L) ,A(L),CONCNM (L) ,L 
ELSE 

• WRITE (6,920) I, (AXIS (K, J) ,J=2,84) 
END IF 

C* ■ - 

SCALE(I)=I . 

C* ' ' 

DO 150 LL=1,4 
L=L+X 

K=K-1 • • / ' 

C* = 

IF (L.LE.N) THEN / 

WRITE(6,930) (AXIS(K,J) ,J=2,84) ,E f'L) ,P(L) ,A(L) ,CONCNM(L) ,L 
ELSE 

WRITE (6,930) (AXIS (K,J) ,J=2,84) 
END IF 
C* < ' 

150 CONTINUE 
200 CONTINUE 

WRITE (6,940) , 

WRITE(6, 950) (SCALE(I) ,1=2,14) 

CALL CODE (ALPHA) 

WRITE (6,970) 

STOP 

C* 

900 FORMAT (A27) 

905 FORMAT (13) 

910 F0RMAT(4X,3F7.3,5X,A15) 

920 F0RMAT(1X,I2," +" , 83A1 , 3F7 . 3 , 3X, Al5 , IX , 1 3) 
930 F0RMAT(4X," !",83A1,3F7.3,3X,A15,1X,I3) 

940 F0RMAT(2X,"1 "„13(" +") ," P") 

950 FORMAT("0",3X,13(4X,I2)) 



960 FORMATC'l"," E",12X,"E VS. P VS. A PLOT FOR " , A27 , 22X , "E" , 8X , 
*"P" ,8X,"A") 

970 FORMAT ("ONOTE: THE PROGRAM CAN ONLY PLOT ONE CONCEPT IN A SINGLE 
*SPACE."/" THEREFORE, IF THERE ARE TWO OR MORE CONCEPTS IN THE SAME 
* PLACE ONLY ONE LETTER WILL APPEAR.") 
END 

c* - - ' ' 

Q* ******************************************************* ******** 

C* ' ' * 

C* SUBROUTINE AVAR * 

C* * 

C* • USAGES AVAR(VALUE, KEY, ALPHA) * 

C* * 

C*, PURPOSE: THIS SUBROUTINE FINDS THE CORRECT ALPHABETIC * 

C* CHARACTER FOR VALUE AND RETURNS IT IN KEY * 

C* ' * ' 

C* . VARIABLES: 

C* ' ALPHA: CHARACTER ARRAY CONTAINING ALPHABETIC * 

C* CHARACTERS FROM "A'* TO "M" * 

C* TPOS' : CONVERSION FACTOR FOR VALUE * 

C* VALUE: REAL NUMBER TO BE CONVERTED TO ALPHA * 

C* KEY : CONTAINS THE ALPHABETIC CHARACTER * 

C* VALUE IS CONVERTED TO * 

C* * ^ 
*********************************************** **************** 

C* . 

SUBROUTINE AVAR (VALUE , KEY , ALPHA) 
CHARACTER*! ALPHA(13), KEY 
INTEGER POS 

C* 
C* 

POS=INT (VALUE) -1 
KEY=ALPHA (POS) 
RETURN 
END 

C* 

Q* ******************************************** ******************** 

c* * 

C* SUBROUTINE CODE * 

C* * 

C* USAGE: CALL CODE (ALPHA) * 

C* PURPOSE: TO WRITE THE CODE FOR THE "A" VARIABLE * 

C* IN STAT/SEMD IF/PLOT * 

C* * 

C* ALPHA IS A CHARACTER*! ARR/iY CONTAINING THE LETTERS * 

C* FROM A TO M. * 
C* 
C* 

C ************ ***************************************************** 

c* 

SUBROUTINE CODE (ALPHA) 
CHARACTER*! ALPHA (!3) 

C* 

WRITE(6,900) 
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DO 100 1=1,6 * 

A=I+1 - -J . *^ 

K=A+6 ' 

WRITE(6,910)A,A,ALPHA(I) , K , K ,ALPHA (1+6) 
100 CONTINUE 
^ WRITE(6,920)ALPHA(13) 

C* 

900 FORMAT (/"OTHE- KEYS »FOR THE 3RD VARIABLE (THE 'A' VARIABLE ARE..." 
• V) 

910 FORMAT(2(4X,I2,".00"," - ",I2,".99"," = ",Al)) 
920 FORMAT(18X,"14.00 = " ,A1) 

RETURN 

END 
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PILE 4 ( K I I;D= "RSMOTE" , M Y'J3E=-** OU?-".)- 
FILS 6(KIiID="PHll]TH;H" ) 

TILi: 10(PIL!':="FORh':5/i:{Ptrr.",UilD="DIGK",PILETYPE=7} 

Q***)t*i«-*J(-*»)(.K)C»(-)t)t »(■*)«■)«■**!(■)«■*«•*)(. K-*****K-*** ******** X-***»<rKr***** 

G* * 

h * 

C* TITLfl : GEHDI?/P0RI']3/PRG * 

C* * 
C* AUTHOR : HAHCY MrJIVIEH ' * 

C* ■ THIS PROGRAM WRITES OU^D SURVEY FORMS FOR THE 
r>K]mi? PROGRAMS. . • 



* 
* 
* 
* 

C* THE PROGRAM FIRST ASKS FOR THE NUHBBR OF COPIES * 

C* TO BE r<1ADE. THEN T[[E NUMBER OP CONCEPTS IS >SKED * 

C* (inUM) AMD A TITLE FOR THE PRINTOUTS IS ENTERED. * 

C* THE 'JSER TMEH HAS A CHOICE OP EHTERIllG THE CONCSPTS * 

C* FROr. AN EXTSRIIAL FILE OR FROM THE TERMINAL. . ■ ' * 

C* A HAXinUM OF 109 COilCEPTS' ARE ALLOWED. 

C* 
C* 

C* THE 



ONCE THE CONCEPTS ARE RE/^D IK INTO THE ARRAY CONCHM 
E SUBROUTINE RAN IS CALLED WHICH PUTS THE COIICEPD 
C* NAMES IN RANDOfJi ORDER INTO. i'lIE 'ARRAY HANDNH. 

C* - THE FORMS ARE THEM PRINTED OUT WITH 6 "CARDS'" TO A ' 
C* PAGE. IF MORE THAN ONE COPY IS REQUESTED*, THEN RAN * 

C* IS CALLED AGAIH SO THAT THE CONCEPTS WILL BE IN A ^ 

C* DIFFERENT ORDER FOR EACH COPY. EACH COPY WILL BE * 

C* ASSIGNED A UHIQUE "CASE" NUMBER WHICH IS PRINTED 

a* AFTER THE TITLE ON EACH PAGE. * 

C* ' * 

C* * 
C* * 

c* * 

)(■*)(■* It *)t******X-**X-*X-*************)t ********* )t ***■)(.********** 

c* ■ 

DIMENSION UUMBKR(109) 

CaARACT?;R COHCNH(109)*15, RAHDNM(l09" 15, CAT1(9)*9, CAT2(9)*9 
" CHARACTER TI,^LE*l8, nEAD*25 

DATA CAT1 /"KIIID", "WEAK", "FAST" , "COLD", "LARGE", "DISHONEST" » "HAPPY", 

* "DELICATE" , "StlARP"/ 

DATA CAT2/"CRUSL", "STRONG", "SLOW", "HOT", "SMALL", "}I0NE3T", "SAD", 

* "RUGGED", "DULL"/ 

C* \ 

irUTIALISE THE ARRAY OP COIJCEPTS TO. COHTAIN ALL BLANKS 

C 



* 



C* 

c* 



DO 20 1=1 ,109 

i<A:;D;:i:(i)=" 

WniTE(4,*)"PLEA3E ENTER THE NUMBER OF aopt^^S TO BE MADE." 
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READ(5,990)IC0?Y 

WRI?E(4,*) "PLEASE SHTER TlIS IfUilBER OF CONCEPTS TO BE USED." 
READ{5,90O)I!!UM 

V/RITE(4,*)"?LEAGE KHTER THE TITLE FOR THB PRIUTOUTS." 
RSAD{5,945)HEAD > ■ . 

UHITE(4,*)"D0 YOU WA!!T THE COIiCEPTS TO BE ENTERED FROM A PILE OR 
*FHOM THE TERHiriAL? (l=?ILE, 2=TERMinAL) "' 

READ (5,925)iyHAT - • ' ' 

IF (IWHAT.EQ.2)'THEi; 
WRITE(4,995) 
DO 50 1=1 , INUM 
WRITE(4,980)I 

read(5,9oi )co:jc:ih(i) 

COilTItlUE 



V/RIi:E(4,*)"EirTL'R NAME OF INPUT- FILE (LES:3' THAN 1 8-- CHARACTERS ) 
READ(5,9?5)TITLE . .\ 

„ IF (TITLE(18;).NE." ") THEM ' ^ 

TITLRda; ).= "." 

■ • GO TO 65 - ' ' ; 

DO 55 1=17:^1 ,-1 
55 IP {TI^LS(I':I).NE." ") GQ-TO 6D ■ 

r>0 1=1 + 1 

TITLE(I':I)="." 

Si-iD IF 

C* 

c* OPE;; i:;puT pile and read concepts 

C* . " ' 

65 0PE:3 (10, FILE=TITLE) * 

DO 67 1=1, INUM 
67 READ(1 0,900)C0iiCNM{l) 
Ei;D IF 

C* ■ . ' , 

xx::uH=i 

c* now vmiTE out the sheets 
c* - 

DO 300 1=1 , ICOPY 

CALL RAN(C0;;c:iH,RANDl5M,UUMBER,iryUH,IXNUH) 

WRITE(6,905) 
WRITE{6,915) 

C* ' ' 

J = 1 

70 . IF (j.LE.inuKi) the:-! 

IC0UNT=1 

WRITEC6»920) ■ ... 

WRITE(6,91:)HSAD,I» HEAD,! 
vmiTE(6,915) 

C* ' ' ■ 

100 IF (icouNT.LE.3.A:;D.J.LE.i:i:jw) the:; 

WRITE(6»930)HUMBER(J,) »RANDHM{j),NUMBER{Jj),RANDnH(jj) 
WRITE(6,940) 
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00 



300 



DO 200 K=\,9 

WRI?2(6,950)CAT1 (K) ,CAT2(k) ,CAT1 (K) ,CAT2.(K) 

v;Hr7;:(6,940) 
corrriifu.-: 

wRrri;(6,920) 
icou:;t=icoui;':+i 

J=J+2 

GO TO 100 

£:iD IP 

■.irRITE(6,970} 
GO TO 70 
EliD IP 



800 co:r;i!iu:-: 

STOI' 



c* 

900 F0RMAT(4X,A15) • 

901 F0RHAT(A15) 

905 F0RMA?("r',2(5!3("-"),5'O) . ^ 
910 F0aHAT("0",2("SEMANTIC DIPPERSIJTIAL " , A25 , 2X, 13 , 8X) ) 

913 F0RMAT("03EX \^ P DATE - ' INSTRUCTOR 

*MR " ) 

915 F0RM?rTr^'',2(''PLE//3E CIRCLE THE BEST ASSOCIATION FOR CONCEPT.", 

*13X)) ^ ' ■ 

920 FORHAT(."0" ,2.(55("*" ) ,5X) ) 
925 P0RHAT(I2) 

930 P0RMAT(/"0",2(6X,I3,V '',A15,35X)) 
935 PORHATCAIS) ' 
940 FORM A T ( .1 X , 2 ( 5.5 ( " ) , 5 X )-) ' 
945 P0RHAT(A25) 

950- FO/t'lAT ( 1 X , 2 ( " ! " , 2X-, A9 , 3X , " 1 2 3 4 5 

■ *5/)) 
970 F0RnAl'("1 ") 

980 FORMAT (" PLEASE ETITER COUCEPT IIO . " , 13 i " . " ) 
990 FORMAT (13) 

995 PORMATC EACH COflCSP? IIAME MUST BS LESS THAN 16 CHARACTERS.") 
SiiD 

C* 
C* 

c* * 



6 



r 



7",5X,A9,"!", 



G* 
C* 
C* 
C* 
C* 
C* 

C* 



CUBROUTIME HAU 

T;!Io o'lEROUTIlIE RAilDOHISEG TliK PRINTOUT ORDER OP fWE 

co;ic-:p"^ ctored u: concur;. 
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Dn-r:^:K;rj:; !;uiiBi-Rfi09), li3tU09) 

CilAHACnCH C0;iC::M(lO9)*15, RMiDim(l09)*l5 



DO 10 1=1 ,109 

10 ;tunHr:R(i)=o 
c* ■ 

c* iruTiALi::}': li.jT to coriTAin all zeros (o) . 

DO 50 1=1.100 

<;o Lio?(i)=o 

D-; 100 11=1 ,i;njH . . 

70 (;Af.L R;iDi;JT(ixi!UM,jiiun,i ,iiiun) 

IF (Lltyr(JLUH) .EQ,1 ) GO TO 70 

ligt(j:iuhx=i 
nuMBER(ii)=j::uM 

RA:JD:iM(II)=COUCnM(JtiUH) 

100 coiiTiHu:-: 



c* 




JUBRuUTXIiE RilDIHT 

3UER0u?iriK' TO 'JEjErate the raiidoh number 



1 A 



RAMDCM IIITRinSIC ARGUMEIIT 



irRAIIDOH :iUHBER RETURNED 3Y THE RANDOI'i INTRINSIC 



K : Ti'r^ INCLUSIVE* HINIH^^ OF THE RANGI3 

L : THE INCLUSIVE HAXIMUH VALUE OF THE RAIIGB 



* 
* 



* 



SUBROU'^IIIK RHDi:i?ClX'tJ,K,L) 
Y=RAND0M(IX) ' 
Q1 =Ei.0AT(L-K+1 ) 
Q2=EL0AT(K) 
J=INT(Q1*Y+Q2) 

retuh:; 

END 



ERIC 



-66- 



68 



vih?. iUiirj="di.}K" ,':i-':hK="KKXii\ \pilktype=7) 
FILE s(Ki;n;r"Dir;K",7i?LH="D:.-:-:ir;2",FiLE?YPK=7) 
PILE 9(r:i:jD="p^[irrKH") 

C* 
C* 

c* 
c* 



P.ROGRM'h OSHDI p/TTiinT 



Tiilo PROORAi: Th'oT TilR DlGillPICAriCE OP TlIE DIPPEREUCES 
BETyEEirTHE I-lKAhO OF TWO POPULATIOHG. BY MEANS OP A T-TEGT, 
Tiffi IlIPUT DATA 13 STORED 41! 2 PILES, CREATED BY THE PROGRAM 
L^TAT/HEMDTP WITH Til?. G'JPFIX "/OUTPUT". 



inPUT FILE OAS T;iF. FOLLOWING FORMAT 



RECORD 
1 



c* 
c* 
c* 
c* 
■c* 

c* 
c* 
c* 
c* 
c*^ 
c* 
c* 
c* 
c* 
c* 
c* 

0* 

c* 
c* 

c*^ 
^c* 
c* 

************************************ 

C:iARACTER>^2B TITLS1,TITLE2 
CIiARACTER*3' WHEII 

, DIMEMSIOll ARRAY1 (109,3),ARRAY2(109,3) , ARRAY5( 1 09,3) » ARRAY4(1 09 ,3) , 
' * AnRAY5(3),BLAI!K(l ,5) 



3 - 

■ ' (II+2) 

(n+3) - 2*n-M 

(2*iO+2 - END 



COLS 
1-3 

1-3 
4-10 
11-18 

19-25 
2C-30 
31-41 



1-3 

4-10 
11-18 
19-2b 



1-90 



TtllC PROGRAM OMLY U':.ES THE RECORDS 1-(2^H) + 1 

PROGRAM VmiTTBlI BY Vi.L. METIVIER P^R E.D.LAWSOH AT STATE 
U;iIVERgITY COLLF^B, FREDC.;iA, fiEVr\YORK, 14063- 
C0HF6ETED AUGUST, 1983 



CONTENT 

NUMBER OP CONCEPTS 
CONCEPT IDENT NUMBER 
MEAN OF E 
MEAK. OF ? 
MEAw OP A 
SPACE 

CONCEPT KAME - ALPHA 
SAME AS RECORD 2 - ONE FOR 
EACH CONCEPT 
CONCEPT IDEHT NUMBER 
STAND. ERROR OP MEAN CP E 

tt tt tt h" . M p 

It it . it tt It ^ 

SAME AS RECORD lJ+2 - OIIE FOR 
EACH CONCEPT ^ 
OSGOOD DEE VALUES FOR CONCEPTS * 

* 



0* 

c* 



c* 
c* 



PRINT WTE on PRINTOUT 

CALL datit(wuk:0 

V/RITE(9.900)WHK:i 



10 VRITE(6,930) ■ 
READ(5,950)TITLE1 
WRI1-E(6,940) 
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r 



liKAD(5,9'>0)?ITL:^2 

c* ?u? PERIOD 'A? ■■::;!) uf FiR.rr filkuahe 
c*- 

DO 200 1=1 ,27 

I?(:i?LK1(l-.I).r:Q." ") THE!; 

:rrLsiCi:i)="." 

.)0 TO 210 

200 cOiiTi:iUE 

?ITLK1 (28:28)="." 

?v) (7,TiTLi-:=TiTLrii 

* Rr:i'P.A'r FOR S7C01ID FtL^uAH^' 

tF'.':i7LK2{i:i).>:.^" ")T:iv;;; 

. TITLfCSd:!)^"." 
TO 260 
EUD IP * 

TITLr:2(23:23)="." 

2 60 0 p 'Lw ( 8 , T itl::;^t I T ;.r:2 ) 
nKAD('7/">2o)i::uK 

RIiAD(8,920)r.;UM 
. ■ . 

C* nOV/ RH)AD 30T;t PARTC OP "I'M. FIL3S INTO ARRAYS 1-4 

DO 500 1=1 

HEAD (7,800)(ARHAY1 (I,-J) ,J = 1 ,3) 
READ (8 , 80C ) ( ARR A Y2,{ I , J ) , J = 1 , 3 ) 
300 CONTINUE 

■ DO 310 1=1 ,i:jum 

HEAD f7,800)CARRAY3{I,J),J=1 ,3) 
READ (5,800)(ARRAY4(I,J),J=1 ,3) 

310 co:iTi:;us 
c* 

c* ■ NOW ca;.culate a,id prieit the regultc o?"thht-test 



c* 



URI?EC9,910)TITLE1 ,TITLB2 

DO 400 1=1 , irm 

DO 350 J=1 ,3 

ARRAY5CJ)=AB3CARRAY1 Cl,J)rARRAy2(l,J))/SQRT{ARRAY3(I,J)** 
* 2+ARRAY4(l,J)**2) 
350 COIjTIUUE 

WRITEC9, 850)1, (AHRAY5CJ),J=1 ,3) 
400 GOIITIIIUE 
STOP 

300 ?0RMAT{4X,3P7.3) 

S-^O FOR!.1AT{"0",I3,3X,P7.5,5a,F7.5,3X,F7.5) 
900 F0R['IATC1X,A8//) 

910 FORI-iATC" T-TEC;T results; for piles ",A28," A-ND ",A2B) 
920 F0RHATCI3) 

O 



it 



ciiAKA y:::[i*.i ■..'it-;"; 
DATA uli;-:::/" / / "/ 

B=DA?r:("fi;-!DDYT") 

'.v:iK::i4:^)=B(?:4) 
■.;:iK::(7:8)=B(p:6) 
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FILL 



* K- 

c ^ 

■ ■'^ >e 

^^^^ 
- > 

c* 



c* 
c* 

c* 



7 ij. 1" , VILE? YPE=7) 
'>(;:: .UT's-in';?'';)-:") 



:t..J'JHa;': i;.'?u?:; t:/o fi:.e:j i^Aci conTAiiaiiG tiik Osgood d 

va:/!.-:/ P"":.-;--;::^ kaci: a:;d HVKitY coiioept. Tiisrjiii dicjtaiicKo wkre 

'A .^;i:i,A?:;D py fjBHOUTi:;:-:, cdgpd,i:; ths program, semdip. 

■jvr.rvzz t'iu data i:; a printed i^eport. to obc-ai!,' thb 

i-A^A, n::KDIF WAJ RUli A'.iD Ti:E REoULTIIlG /OUTPUT PILE IK USED 

A.: 7-'.-. r;pur [-'II:-. 

I'RorjiiAK ?he:; compute;; t:ik f-.5PEARMA:i ramk gorrelatioh 
■.";::-::''Eiv:; e;:? r^ii t:;'-: tv-'o (2) group:: op data, it cah haudle 
A :^i;:?A';<:'-: f-iATRix for up to 109 coiicepts iiiclusive. eacsi tike 
r'-;OuRAi-i ?1:;io:IEd ?:tocEo3i:ia 2 piles, i? returns por 2 more 
u:;?iL ?;iK u:;er llao pimsiiEO his/her job. 



IE FORMAT OF THE IIiPUT FILES: 



5 - v:;+i) 



(2*:;) +2 



e:;d 



CO En 
1-5 
1-3 
4-10 
n-2R 
29-:^5 

26-30 
?1-41 



1-3 
4-10 

1 1--28 

29-25 



1-00 



COIITEHT 

DUMBER OF CONCEPTS 

CONCEPT IDEMT MUHBSR 

MS a; I OF E 

HE All OP P 

MEAN OF A 

SPACE 

CO:iCEPT NAME - ALPHA 
SAME AS RECORD 2 - OI^E POR 
EACH COHCEPT 
COilCEPT IDEIIT liUMBER 
STAiiD. ERROR OF HEAH OF S 

II fl It II It p 

It tl tt It II ^ 

SAME AS RECORD lJ+2 - ONE' POR - 
EACH COUCEP? 

OL^GOOD DEE VALUES FOR CO'ICSPTS 



T:ilw PHOvilRAi-: 0!:LY USES RECORDS (2*l0-?-2 - E:ID. 



i^y.oULYj or Tiiio cu:^RCTn:;E plus the fikot teii valu: 

7.IA7 TUr;u;^AH Ui;?.3 PiV/^ T^ACil OF THE i:*FUT PILES ARE cJEHT 

Tii:- "UBHC'J^n::^ uj-:^ ibh .^>ijBR0iJT[!i-i3 raiik, -tie, and srauk, 

:^i!03HAi". .uUT^r.lI I^Y Fu L . HE?I V I i^:^, POK ^^,D,LAW30n AT S^ATK 



It 
5t 



ERIC 
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72 



50 



5 0. It 
1 1 



;:iMr:;:.'; k'5-r%) i772),"BLA:;k(i 

?i;i:!v DAT:-: */; -'F ■r!ii:;vouv 

:!A:'i':(w:i:':;.) 
w::J\'i:{'),970)'.;;[:-;i 

10 v;n:'::c(6,'^)"K:;?KR i:;? fil;c:!aki3 pli:a3e-::o more ?;iAii 28 caARACTERS. 

V/Rr:i'j(6,'^)"K!i':KH 2::D FILE:iAHK"PLKA:)E-:;0 more TIIAII 23 CHARACTERS.." 

RnAi)(5,0OO)Ti':Li'::? 

PU? PERIOD AT E:;D op PIH3T FlLEHAHE 

0^"^ 1 = 1 ,28 

iF(?ITI.:^l(l:i).E'..." ")C!1K!: 

-10 TO 60 

co.;':i:iUE 

op:-:;; (t.ti": .k=7iti."i ) 
100 1=1 ,2i 

n ; ■ T ■ " ^1 - I' " 

* J. i ^ 1 . i ^ — . 

■JO 7w MO 

:'::;d r? 
.;5-:.7:uir.- 

:r:'L--;2(2yt20)=".' 
0??::; (i,:i':Ls=7:':':.r;2) 



= :.u;!?.j:R of c;:-::CiP'r::. ':o be paocKysED 



"TJ'-!P ■ 



I 0:-' LAc7 CA^)E 



:-:;:a:'(-s?3-'''': 
..==(;;^'.;:-i ))/: 



ERIC 
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73 



K!-a:. (7/)/!o) (pla:;;'/ i ,j) ,j = i , >) 
Rii a:} [ ^ , 940 ) ( bLA::K { i , J ) , J = i , :^ ) 



::m) lA i::rn'? data 



r:la:-(7, x-)(aCi) ,1=1 ,:;) 
\^n'."^^,*)(B(i),i=i,;;) 

:all ohauK iWj ?ia-A? output 

.V t 1 0 } v ; ? l :■: i , t i ? l e2 

CALL .;ha:.w (A,fi,>.,:;,n;";,T,:;Di-\;;H) 

v;ri':':(9,'")oO) h::,v,:;.>f 

:-,;';A:n'^s'^^o):-: 

IF (:':.-:,:," Y") to to 

(^^^ 

.■TCP 

910 F:h:;A:(//,i>:,A23," V:: ",A28) 

920 r.?':AT(i/:,A^//) 

-vvo f.^k;'a:(:") 

'^^> f; -.^;:at(4:-:,?f7.'5) 

9530 F0Rr.AT(A1 ) 

96-^ ?9r;-:at ("0 stHARHA:; ra;;;: '^oRR'ruATiou coF.F?iciBiiT=",?5.2/ 
^" /I i:;:FicA::cL=",?n.'5/" ".iukbsr op D::gre>:s op pRSii;D0M=",i5) 

5'iBR09Tr;r; oivA:;'f:(A,B,R,::,RC,T,":DP,!;R) 

Q** )t **** K•^t<■**Jt**■***Jf**K•******■i:<*Jf* St K- *********** *K-********J*****K-!t*K^ 

.^:;^ROf!Ti:;;; .:'Ra.:?: 



5f- 



?urp::,-j 

Cx- T;E07 C0RR:;LATI01i 3:TV/K=:'i TWO VAHIABL^y BY HEAliG OF SPEARInAU 

0* RAi:;: corrblatio:; coeppici3:i': 

/ cai^Tj l^h a:;k( A , b, r , ;:, rc , t , ;:df , :nO 

DH;:>':--;:rTiou of PARAieTSRo 
0* A - i:iPUT vector op 0B3i-nvATic:!L: por pirut variable 
?. - i::pu': vector op u oBoKrvatioug for oKcohd variable 

■'^ R - OUTPUT VrOCTOR POR RAIiKSD DATA, LENGTli lo 2*11. SMALLEST 

obJJivRVATio;; ly rajiki^o i, largest is raijked n. ties 

AR:: AGiJIOlISD AVERAOE 0? tibd raukc. 

z^- ;i - ;;u:-:Bf;R of obgervatio:is ^ 
ur. - npKARHA:: ra::k correlavioii coefpicibut (output) 



RIC 
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: - r.? 3ij::ir ioa:ic3 of Coj':f*u?) 
■;>^ ■<;: - r/jj^:, <■ !■'■'(■: 'i::;'a:;k?:d da?a r:; a a::d b, i for j^Mivrsh 

::A':-A I', A AM; B ^Mi'UT) 



:)':':.:oMi3K::- i:; r^, .^i;;'JKi., ".::r:pAhAKi:TRic g'?ati'b'?ic3 for the 
> ::;AVTmL c;ciK^:oii^3", i-icgra'^^iiIll, ::ev/ york, 2956, 



■> v/iir::'!:-:;! data vz ra..::fd , , 

c* :^a:;^" da7<\ i,: a a::d b ■/:ic?o;ir; ai:d A;-33ic>;i tied observations 

!> AV;-:i-.AJ^: OF ha;;k:; 

'J* 

^ A jjij RA-* I- ^.AjRj ijRojCj.iDFj i-'} 

CM/., ha:,;: (i^,;'.,:",?..';,:,:n;P,;;LO 

0^ nf.V/. nA:;r:/::) r^A?A ?o r 7^:c?cr 



10 D; 2') , i 
20 :~\ t ) =A i, i ) 

jO 30 1=^ 
i::=! 
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^'"^ cowr'-'TK jP'-ah;ia:: ra:;k ci;khelatio:i coiiFFiciEirr 

. 57 "r^J^I .O-G.O'^D/K'.ii;:! 

i;o ?o 70 
''.■^ x=f::;;;:/i 2.o-?;:a 

(:-: fY-D)/(2.o^(3Q:-:?(;:*Yf)) 
wm7X(9,9oo)f::::::,x,y,d 

c . . cuKinr;;-; 7 AMD jr/JH:-:'';;: OF PRi:^':DOH i? :i r.) 10 or larger 

7 = 0.0 

70 eo,7=.>,7'; 

^ b t;*: { F :.c A 7 ( -2 ) / ( 1 . o-r * ) ) 
30 :iDF=::-2 
k:-;?uh;; 

900 FCRi>iA7("Or\-::;i;=\Jio.4," :v=\aio.4," y=", 010.4," d=\gio.4) 
c'jBnou7i::;-: 71 ;-:{ n , :: , K7^, 7 , \v:, ) 

^ jfitx + *x it-)t)t^(-)t**)(-)(-**)(-*)tif*)t!('tt-»( )m-)t*x-x )t*)t***-s( ********************** 

cx .'uv;ii' ';7i:;:-; 71 : 

C* PURPOJK 

0=^ CA.XnLA'-; C3RR"C?I0:; FACTOR DUB\TO TIE3 



:; FACTOR DUB^ 



,1 » T % ' - n T V / o f ' y " 1 

0* ;)>:.'.i;Rir7io:i PARA[i?.7ER" 

C* :i - ll.r-UT VKC7CR .OP RAUKO 0? LKIK;'?!i N COliTAIilll'IG VALUES 

C* ' i TO Vi 

c* , - liUMEER 0? ra::;:ed valued 

C* K7 - i;;PUV CODE FOR CALCULA7I0U OP CORRECflO!.^ FACTOR 

'c* ■ ■ 1 GOLv:: SQUATioa 1 

0* ' 2 JOLVE E(iUA7I0:i 2 

7 - C0RREC7I011 ?ACTOR (OUTPUT) 
C * E .:UAT I on 1 T =3 UH ( C T* *5-C T ) / 1 2 

C * ■ EUUA7 1 Oii 2 7=DUM ( CT* ( CT- 1 ) /2 ) 

" WiiERE C7 IZ 7;IE IIUMBER 0? OBSERVATIOHS TIED FOR A 

C* . ■ OIV^i; UAIIK , 

hep.ar:-:.; . ■ ( 

c* ;:o::7 
c* - 

.urDl!0U7i:,Eo A:ID PUnCTlOtl 0U3P:l00hAHS REQUIRED 

o'f ::o:;e 



ERIC 
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V 



X ^' 4- ■ i /I ^ J 



rift 
fit 



7 = 0.0 
Y---0,t> 

I ;i)-o 

ip{K(:;^+i)-v) ^0,^0,10 

-10 IF(Ei(:;L>l)-X) 20,30,50 

r:;D=i:;D+i 
?o coi;?i::ur: . . - 

■ ip(i:;d) 90,90,40 1 

■'J? = 0.0 



DO 60 1=1 

i?(R(::3+i)-".t) Go»St^.')t6o 
50 CT=C?+1 .0 

60 co::?i::uK 

CA^riLATr: FACTOR . 

I?(C?)' 70,5,70 
70.IF(K':-iy 75tBO,73 

75 7=':+c?'<(c:'-i,)/2.o 

;-.0' ? = 7+(C':'^CT*p':'-C?)/l2.0 
■ -JO 5 

90- cD:r:i:;u;: ^ ' ..-^ 

Jibiiou? : :; :■: :-.a:;-;: (a , r;'. , 7 , ;; dp » ) 

ha:;k a vvic^ni^ of VjrJj!::; ' 



ERiC 



r75- 



77 



V 



* ckLh HA:r:( A,R,:i) 

* A - i;;-UT v:-:c;vjh o:-' :: 'ihwy.^v. 

* - On'l'PU? V'/.CV't!! OK L;::iJ':':i i;. 3HALLE37 value 13 RAIIKBD 1, 

* LArrj>:.vr i,- ;iA:iK;;D tiiw arh ao:;igi!ed avkraoe o? ?ied 
» - irwBKR o? valu:-:3 

::o:;^: 

x '"v7;'Vr jii m c.yAwc'v^o pgr cucckssively larger EL.EH:^:jT3. if tiej: 
i'^ " jccaK, 'r:iEY ark located .a!:d their rahk valuh; computed. 

P'-R i-::-:ah?L£, i? 2 values are tied ?or 3IX?i^ rank, they -are 
A.-,'i;,;:;D a ra:::/ op 6,5 ( = (6+7)/2) *^ 

■*)( X If * *. >fX )( S(-)r)e)t)(-)t****)t**^(**X*************)t**** ************* 

';.):; a(i ) ) .'-^ ■ ■ ' 

;* 

'? ::::':ia::>i::a':;o:; 
io 1=1 ,:: 
10 n:::3t-i)=o.o 



I. 



I'* 
' It 

^ vrrcTii'^R t.ata poi'iv i,: alhkady raiiked 



¥i."j ra:;::-o? a:a 
1 30 :=i 



i?(R(::3+i ) ) 20, -ao, 100 



0* / 

c* T'ATA )^.i:;t to 3E 'ra:.7:ed « 

20 o:iALL=0.0 
E.;UAL=0.0 ■ 
X=A(I) 

DO so j=i 

IP(A(-J)-::) yO, 40, !iO 

c* cou:r: liUr.E:;:; of data poi::t3 vriicn are omaller 
,'^* 

50 3HALL=o;-!ALL+1 .0 

♦ 00 to 50 

0"^ co;;::t ".iLniDER of data poi;;t3 mzn are equal 



40 E:4UAL=EQUAL+1 .0 
R(:.0+J)=-1 ,0 

50 co::Ti'iU^ 
c* ■' ■ 

X?(>VWAL-1 .0) 60, GO, 70 
ErJc ^ - -76- 



73' 



70 



,^0 
')() 
1 00 



GO T*J 

JA'j'"'/ jjAT^ r,A.i;l '^F TIIvL) DATA 

I?(n(:;'j+J)+1 .0) oo, 80, 90 

r/ /r: 
h':?tjf::; 

.'u;iK..;'j':i:..-: i>A'MT(w:i:-;'i) 

C:iA:iACVKH*8 v/ii -"l 

caAKAC':::ri'^6 b 
DATA v/::i;:i/" / / "/ 
B=i>A?:-:("Hn;)DYY") 
v/;i:-::i(i :n}=B(i 

ynH.:(4:^>)=B(?:4) ' ■ 
',/Hr,:;(7:3)=B(!>:G) 



1 w 



« r 



\ 



ERIC 
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i:i:^TFtucTio:K: for ruuni;jg ^ehdi? PROGRA^iy. 



1 , iJTAT/::Kii]HP 

"This prot^ram can perform the computations for; 

1 » ['leans and standad deviations on subscales 

2» Keans and standard deviations on evaluation > potency > 

\ind activity factors (EPA scores) 
5» Osgood D values for all concepts 

4» The correlation between distance measures obtained 
from EPA scores and Osgood's D 

Tests of significance of distances obtained with 
Osgood D- ^ V, , 

T'lodif icntionB: This progr'am has been modified so that the means> 
the standard errors; oi the tneatis, and the Osgood dees are saved 
in a file with the suffix '70HTPUT''* / This file is for use with 
the programs: OTAT/CTDIP/CORR, STAT/SEflDIF/TTEST , and 
3TAT/3KHDIP/PL0T**' 

To execute this program^ type: 

Ftu:; ,$Vredlib/stat/sehdif ^ ' 

Enter the file name when requested by the program* 

2. To get th^ Mann-Whitney or Wilcoxon results^ two programs must be 
run as follows: 

A. GTAT/Si^MDIF/OSJOOD 

''This program computes the Osgood D (distance) values for each 
rated concept and other concepts on the subscales in 
preparation for use with the wilcoxon or other rank ■ 
statistical test*" - ' ' 

^0 exe'cute this program^ type; 
- Rim $FREDLIB/GTAT/SBMDIP/OGGOOD 

Bnter the name of, the input file-when requested by the program* 
This, program creates the input fi'lG f or „the next program* It ^is 
stored under the name> filename/SD where fil,enjame is the name 
t'nat was entered as the nrame of the input file»(ex» AA/MALB/SD) 

If you want to compare 2 files for e^ither the Mann-\)hitney or 
■fehe Wilcoxon tests, you must first run the original -files 
through SPREDLIB/STAT/SBMDIP/OSGOOD to create; an -SD file for 
each of the original files. ' 

B . STA?/ SEMD I F/ SIGT liS T 

^ 

"This program takes data input, from program STAT/SBI4DIF/0SG00D 
and" makes a series of comparisons. This program tests tlr^e „ 



significance of tne distance (converted into ranks) as a two- 
tailef5 tejt between one concept ^nd two other concepts. Thus 
vht-re 1 Oi =coriciipt G. jI) :ind 102=ccacept BAD we are interested 
in learning; wljetner another concept s\ich as self=07 is 
:^i(.:nLi"icantly cloi^or to the concept '^OOD or to BAD. 

The Ident numbers of the control concepts are the last 6 
numbers of the concept list (i.e* if there are 106 concepts^ 
the control or reference concepts are 101-106)» The program 
will handle up to 109 concepts including the last six* The 
names of tne control concepts are contained in the fir^t 3 
records* Additional control or reference concepts can be 
linted by moving additional concepts to the last 6 positions*- 

The program is also set up to use two input files and compare 
the distance between one concept' and the control concept in the 
first file and the identical concept and control concept in the 
second file* Initially it processes the first file as 
described above and ■ then does the same with the second file* 
Then it takes from each file the distances between each concept 
and the positive controls (i*e* GOOD, STRONG^ ACTIVB) and 
compares like concepts as described above* Finally it does the 

■ same for the distances between the concepts and the negative 
controls (i*e* BAD, WEAK, PASSIVE)* 

UPDATE (1932): This program has been modified to now include 5 
tests from which the user can choose, the V/ilcoxon test, the Mann 
V/hitney test and the Spearman rank correlation for the individual 
against the control concepts* These tests can also be performed 
with two (2) input files. 

If the ^user has two (2) input files and chooses either the 
V/ilcoxon or Mann-V/hitney tests, the program will ask if the user , 
would like the files to be also ranked. This is asked after the 
original test is completed* " . 

If the user requests th^ Mann-Whitney test, the Wilcox test is 
first done on the separate files* If the Spearman rank is i 
requested, after it is done the user has the choice of ending the 
program^of performing^ v/ither the Wllcoxon^or the Mann-Whitney 
tests* 

The V/ilcoxon (patched pairs procedure) , is used with one group 
when differ-neces are tested between a concept and 2 refernece 
points sUch as GOOD and BAD* The vrilcoxon can be used with two 
groupSj-for exampl-e a ^re- and pof * test a? so* Here testing ^ 
would be to see whether a concept was closer to GOOD on one 
testing or the other* The Hanji-V?hitney is used with independent 
groups,, I 

The SSpearman correlation determines the degree of association 
between.. two sets of Dee measurements, a^ GOOD vs* concept in 
one group vs* a second* - — * 

UPDATE (1935): Another column has been adde^ to the printout in 

■ ' ■ ■ , . / 




' 81 



order to show P on a scale from 0 to 100, 'rhis scale is a 
Gornev/hat nodified percen'^ile score* The probability levels are 
shown in t£ie, gutput untJer **P^* and the scaled values under **SC" » 
Thin scale is u:^cd only with the V/i Icoxon .matched pairs test/* 

To execute this progran, type; 

.i;FREDLIB/S2AT/SSHDIF/SIGTli;3T 

In put the f oil 3win{;; information requested by the program, 

:nJHl>KR CO::0EPT3 - the total number of concepts for the 

current study including the control 
concepts, 

;;UMHKR OP CA333 VA SACIi FILE - Both files must have the 

same number of cases. Example if both 
cases have^55 cases, enter 55 
:;i!HVr:{;:lOIl factor - the corresponding factor to the^ number of 

cases entered as given in the table, 
UrAlVSM op l:;pUT FllAil) - M * if you are. only comparing a 

single set of concepts against 
the control concepts, ^ 
' . *2* if you are comparing 2 sets of 

of concepts against first the 
positive control concepts and 
then the negative concepts, 
" ::Anr:(o) of I:1?UT FILS(S) ^ the filename/SD files created 

by the OSGOOD program which was 
run first, if number of files 
was 1 only one file name will 
be req.uested. If number of files 
was 2, 2 file naoie^ will be 
requested, one at a time. 



5, . To get the spearman rank correlations ran the two 
programs as iOllov;s: 

A, Him $?H::DIiIB/STAT/SEHDIF/OSGOOD as stated above, 

■ B. Run SPRiCDLIB/gTAT/^EHDIF/SIGTEST 

V/hen you are asked; "Enter 1 if matched pairs , etc, ** , 
enter 5, The prograiii will come back with the same 
file names, 'when the correlations are calculated, 
the program will then ask you to enter 1 if you wish 
to do the V/ilcox test on the same files, 2 if you wish 
to run the Hann-Uhitney test on the s^me files , or 3 
. if you wish to end thf; program. 



4, S?AT/0Et1DIF/C0RU 



"7'iio pro;:rai:i inputs twa file;o each conlainiru', lh*i ni^r^oo^\ 'J valuer: 
t,**i^',v*^'^n *rr:,i niA every concept* The^-^e .di^t'inces v/ere calculated 
by luo r.r^'^:rum, rVA7/;::;i;i I'r / .'7A7/.';-;h:)IF Qutputs thi3 dat^i in^a 
: V i rit^'^d* r^-por!. ani ::i.r.r-^' it in a du^k file, 'he name of ttiis'file 
i,-^ tfA- nan*! tiu^ inpat fii^* wit.^^ a ^:..frix.of "/■^UTPU7" added* 
Tnis i;: tiiv fLlo .1') be u^a-d a^i tiic int>ut file for nTA7/;: F/OoRlw , 

:'7A7//^^:': l^V^^'OHn 'C(>nuu7re3 the ^ ^'pearman Karrtc Correlation for, the 
two .a^jun^^ of d?iVu It can h-^ndle, a distance matrix for up to 

curx^upt.; inr-l u:>ivf^. --ach tlrie the pro/^am finishes processing 
? iil'^r, it return.^ for 2 mor-^ I'ilvr^ until the uner has finished 
nii^/he* Job*" . . , 

A. / :A7/;..;]I''i)l? a^^ described in^section I above |^or :each of the 

fil'r,: v;?iich you want to corrilal;e, 

uu'?v;: 7irte print codo in ttie first lirit.^ of tiio input file for 
::7AV/;-};m'1DIP nu^a be 03 (liot 01)* 

Von will uiT*^ the resulting . 0U7P'j7 files as input filys for S?AT/ 
/:-;:-;:^:F/C)Hiw * , ^ ^ 



Otart the pro^jram by tyoinV,; 
;n' ; CF:i:C?LiH/J7A7/QKMDI?/CC.?H 

C* :3nter the file names When asked for* Remember to use the / ?.PUT 
file^^! ! (i.e* :;D0LAi^.;^>A;iPLS/0UTPU7) 

D, Thfe prof^ran will at:k you if you wish to use 2 more files* If 
you dD» type 'Y*. If. not, type '■!** 



L'?A7/::K;-:DIrV77Z37 

^^ThiK- proo;r'an t/. the Gi£;nif ioanoe of the differences between 
the neanc of two populatiom^ by means of a t-test*' The input 
data is stored^ in ? files, created by the program STAT/GJJKiDIP 
with the suffix ':/0J7>UT*' *" 

A*. 7hl^^ pro^^r-^n run with the same files as oTAT/3i;KiDIF/C0RR * 

y^W nur.t firi?t run" :vrA7/G:iMi)IP ar> above to tjet tne ^OUTPUT 
fiieo* , 

:^ '^he print code in ^the firsc line of the input file "or 
^^7A"V*'.:f-^DlF mu^n be 02 (not 03 U 

;U Jtart the prOt::rarii by typing: 

.V J ,* r.:/ ui i 1. A 1 / i^M'iU 1 1 / i * r.^:^ J. 

'.''he program vill ask you. to enter the names of the files* 
i^^^-^member to use the /OU?PUT files that you got from running 




1/ prij.^ran ploto the K>P>A valueG for the mer^ns doubled 
'K' t-iL;u^it^-.l^by Ih^^ [irof.rrm ::7A?/^^>'Hin r\ The input file for 
t-ni.: pro/;rai;i ii^ fur:ut;d by runnin^f', IvrAT/^-HMDII^' and usin£; "Che 
resulting fil-'b? wltn ^ suffix of "/^J^^TPUTV 

plotting' h .s^'.^t of ^w^S^ valuef:^ the **P" value i:j plotteci 
on t/fM hor i::<Mtt:il axi.^, the value is plotted oh the 
vortical axij, and the point itself i? coded alphabetically 
^I'^fvjr ii n^: to v;hat the *'A'' value is (the table' of valut^o for 
*'A" ir. product^d below the ^;raph itself)* 

Vne ^'r:iph i :;<^al^'d f o L LoWo: 

■;'jri:;fjntai Ax L3 - ..^ach i^ I/6 of 1 

Vertical ^'li:-:; ^- each is 1 /5 of 1 

ivacli axio i.: r.caled from "1 to 

V/;ien the ^^*raph io ^ent to the printer^ the actual I'1>1%A 
val.u^\' 'don^; with the corresponding concept name are printed 
on tne ri^;ht-han'i t^ide of the axis»'^ ^ 



A» Thi3 pro,^rr?.a i*" run with the sane file as CJEMDIF/COKK and 

iu'ij I?/ 77i:V/:\ ^ "ver^ you only u:^.e one (1 ) file per plot! 
You must ^;ir:H iuJ„ ,rrM;.;i:. ^ ^V-"AT/;JKMD1F to get the /OUTPU'i^ 
file. 

^U>'^t fill:; ?F^^KDlIB/r^:^^7/0i■JtILUF/PLO': and enter the file name 
whtMi it ii' aoKed for » 



7» J■^A::/L::^i>lD:I:^/Fuk^!o 

"'^his prof.ram prints: the 3emen-cic Differential ocale forms for the 
oSI;d:F prct^VBinc.'* 

A» ?o run tne forms program^ you mur>t be in LAV/oOiI2» 
* Type n ^?A:AVi;;i])lP/FOHin^ 

IC you wart over 10 copies of the forias^ go to step 4 below* 

B» The proi^ran will first ask for the number of copies 
to be made* 

Tiien the number of concepts is asked* 
;;ext a -title for the printouts is entered- The title 
□ust bo lesi^> than 25 characters lon^;* 

C» The last questions deal witn how the concepts are entered* 
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Vi,-' : r^^/.r^ivi 1 1 , f i r.^t a::"iC if yoa want to hyve ^:ie concept;.^ 
*.*nl-Tt-El Tro/'i L*' '^r fro:n Vhe terifiinal. Knter 1 if you - 

w*irit, to -1 filf. 'vicVi oorfi in tho file inuiit; r^ave the 

Vi w V 4 "i;! Ml*.- coruM-?ijt^"ftumi>^M^ und then the concept 

bt- n i;.':o^*reci seiuient ially :-:t^:r I in^3 wi tn concept K 

ir yvHi wnil t.o !!irumlly enter tiie concepts from the tenainal^ 
^.Mii^ r :\ Vh^* nro^:rrii;i will >'iv- you tne concept nurnboro in 
sequuntial '^riier ;u\i\ you Ju-t en^-^^r Inc concept namen. 

pi'ini. many forn^j u:;e the follcwing procedure: 
■i . :r";it.i-' input Vl'.e de;?cribod in r>tep 3 above and save. 



20O0 3-:;::: Jji- :::-:Ki)irV.'Uirv::Y/POHM;; 
.;ooo OLA'j;,; = 4; 

f'-.ooo ?':-:?■;:! = "i/or; ; ;.Av;."'a; output"; 

H'i.. ):iJ:■:cT/l;?A?/i~;:■:;iiDI?/POl^^To; 
■'^oof) Fi::-: FiL::4{r:T:i'D=DtoK, [iAK;{KC;;isE=i4, TrrLE=3CHATcn, 

PUOT::C':iO:l=TIi;i-l?OHARY); 

' 5 0000 :;a:a I'^il:-;^; 

i.;0')o yvy r:wiBKi? o^^ co:iceptc! 

t ; "^r > ^- f fi j/'f J? r» fj ^ -TfT o r fnr V Vr^n Dl> T Tl ''^HFJ'^ 

I ^ V ^ W 4j ^ J * J t J *J *J ,j .J .V .J - V J J J ij tj i. 1 * jj.j i V I\ JT n X 1 i J. UU ± 

17000 7;/;vw.f;^f;;w;v.v:;;/.r;;\r:;;; iiamk of i:;put pile 

1 ^"^000. JOB; 



f:eplace. M>1>1* in line ]2''-y) v:i .1 the number of copies 

■':eplac^e *YY'^* in lin^l-V^jOO vnth the nurn.ber of concepts. 
r;eV>lacf\ xhe Z^r. in liti^^ 1 0OOO v;ith the i^itle you want on 
the printout . 

;<e|>laoe tiie v/*g in line 17000 with the naiiie of the file 
. cr^"^-ited in I'ten 4*'** ubovc, 



0, Vype: ,r;AR? ' 
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